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WRITTT 

TTREAD 

. PRINT 

. TTYOUT 

. TTYIN 

High-ef 

ASKLIN 

OUTSTR 

CSIMSC 

UOTSTR 



— . WRITE emt with terminal as output device 

— . READ emt with input from terminal 



ficiency TTY EMTs 

— Accept line from terminal 

— Print a system message on the user's console 

— Print a CSI asciz error message 

— print an asciz user's message on the user's console 



«* Program Level Output Character Processing ** 

PUTCHR — Send character to terminal 

PUTCHl — Queue character for terminal 

PUTCH2 — Queue character for a terminal 

QUECHR — Queue character for transmission 

BUFCHR — Insert char or suspend if full 

HIPUT — High efficiency PUTCHR 

ESCHK — Check for echo suppression restart 

LIFUN — Process lead-in function sequences 



## 



# Program Level Input Character Processing 



#■«• 



GETCHR 

GTCFCH - 

CFCHAR - 

CFTEST — 

CFSTOP - 

CFSTRT - 

CFPOP - 

LOGCHR ~ 

ILWAIT - 

DFRREL - 

** Fork 
TTINCP - 
REGCHR - 
DOCTRL - 
ICPCR - 
ICPLF - 
ICPCTC - 
ICPCTD - 
ICPCTG - 
ICPCTO - 
ICPCTR - 
ICPCTU - 
ICPCTX — 
ICPCTZ - 
ICPESC - 
ICPRUB — 
CKVTAC — 
CHKODT — 
INFIN — 
KILCHR — 
INCHR ~ 
STRCHR — 
STRACT — 
STRSNG — 



Get next input char 

- Try to get char from command file 

- Do command file I/O 

- Determine if TT input is from file 

- Suspend command file input 

■ Restart command file input 

■ Pop up to next command file 

■ Write character to log file 

- Wait for activation char from terminal 

- Release deferred echo mode 

Level Input Character Processing #» 

- Process received input characters 

- Process normal characters 

- Process control characters 

- Carriage-return processing 

■ Line-feed processing 
processing 
processing 
processing 
processing 
processing 
processing 
processing 
processing 



Control-C 

Control -D 

Control-G 

Control-O 

Control-R 

Controi-U 

Control-X 

Control-Z 

Escape processing 

Rubout processing 

Check for VTxx escape-letter activation 

Check for ODT activation characters 

TT input wait completed 

Delete a character from input buffer 

Store and echo a character 

Store a character into TT buffer 

Store activation character 

Store char with single-character input 
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- Fetch next char from TT input ring buffer 

- Insert character into TT input ring buffer 

- Delete character from TT input ring buffer 

- Echo character to terminal 

- Echo a control character 

- Terminate rubout sequence 

- Check for single-character activation 

- Check for single line editor mode 

- Handle single-character activation characters 

- Convert lower-case chars to upper-case 

- Signal virtual line wait condition 

- Signal program that Break character was received 
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TSTTY: 



. TITLE TSTTY 

. ENABL LC 

. ENABL AMA 

. DSABL GBL 

. CSECT TSTTY 

. RAD50 /TTY/ 



TSX Terminal I/O routines 



; Overlay region id 



TSTTY is the TSX module that contains routines related 

to doing I/O to the user's terminal. 

Copyright (c) 1980,1981,1982,1983,1984,1985,1986,1987,1988. 

S&H Computer Systems, Inc. Nashville, Tn. 

Macro calls 

. MCALL . READW, . PURCE, . REOPEN, . WRITW 

Global definitions 

. GLOBL PUTCHR, BUFCHR 

. GLDBL DELCHR, CVTLC 

. GLOBL TTINCP, TSTTY, LOGCHR, LOGCR 

. GLDBL STRACT, PCSPND 

. GLOBL WRITTT, TTREAD, CSIMSG, ASKLIN 

. GLOBL PRINT, TTYOUT, TTYIN. SIGWAT, QUECHR, BUFCHR 

. GLOBL XHISET, XHIOUT, XHIIN, XTERCK, XRDTIM 

. GLOBL SETRBF, CMDB, CMDC, GTSPAC, CMDE, CMDF, CMDG, CMDH, CMDI 

. GLOBL CMDJ, CMDK, CMDL, CMDM, CMDN, CMDO, RSSPAC, SFWAC, CMDR 

. GLOBL CMOS, CMDT, CMDU, SFWL, CMDW, CMDX, CMDY, CMDZ, MAXCC 

Global references 

. GLOBL *AUTO, *RBRK, «RFRSH, LSW4, R*CFST, CFACFL, *SCCA, AF«CCA, AFCF 

. GLOBL SILFET, *SUSPN, WINPRT, *VBELL, LTTCR, TTCPL, AF*NPW, SUCF2 

. GLOBL *RTCS, AUTSPD, DOSWIT, WPWCH, PRIVFO, PRIVSO, PRIVCO, PVNPW 

. GLOBL MXSPAC, LOTSI Z , LSTACT, SETERR, LSWl 1 , *PWKEY, *NOWIN 

. GLOBL TRNSTR, GTSLCH, *SLON. *SLTTY, *V52EM, VCTRLT, DOCTLT 

. GLOBL *NOWTT, NOWAIT, FRKPRI, LSW7 

. GLOBL CFARG, DISSLE, *DBKMN, *CTRLD, CXTRMN 

. GLOBL LSW, LSW2, LSW3, LSW4, LSW5, LJSW, *NTGCC 

. GLOBL *DILUP, *DOOFF, *DISCN, IN*ACT 

. GLOBL $DETCH, *CTRLC, *1ESC, *NDICP 

. GLOBL $SCOPE, «ECHO, CFHOLD, ILSW2, *CHACT 

. GLOBL *TAB, *FORM, *NDINT, LABTIM 

. GLOBL *LC, *NOVLN, *DEFER, *NOOUT, NEDCDI 

. GLOBL *NOIN, *TRNSP, LINSPC, QCOMPL 

. GLOBL *CTRLO, *RBOUT, *1STCH, «CTRLW 

. GLOBL *CTRLS, *DODFR, *GCECO, *GCESC 

. GLOBL *QUIET, «INKMN, *UCTLC, *SETCC, VVLSCH 

. GLOBL *ODTMD, *CFOPN, *CFALL, *GTLIN 

. GLOBL LSWIO, *SBIT, LWINDO, WINCHR 

. GLOBL LESCHR, LESRTN, LSNDCH 

. GLOBL *TTERR, *CFSOT, *HITTY, *FLAGC 

. GLOBL *1CTLC, *VTESC, HAZEL 

. GLOBL S**RUN, *DEBUG, *DBGBK 

. GLOBL *DEAD 



TSTTY 
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GLOBL BKSPAC, CR, *UKMON 

GLOBL $LOFCF, $SUCF, LSW9 

GLOBL LNMAP, SSOTFN, ENQTL, STOP 

GLOBL CORUSR, CFPNT, LACTIV, LINPNT, CFPSAV 

GLOBL LINEND, LINBUF> MXCPRM, PRMPNT, LSCCA 

GLOBL CURPRM, CFEND> CFCHAN, CFBUF, *SLINI 

GLOBL LNSPAC, LSPACT. CTRLZ, CTRLC, CTRLX 

GLOBL LINNXT 

GLOBL TAB, BKSPAC, RUBOUT, FORCEX, LINSIZ, LINCNT 

GLOBL BELL, LNPRIM, LF 

GLOBL TRNSFL, ESC, LTSCMD, VTSLCH, LCBIT 

GLOBL CFSPND, PR7, ACFLAG, LAFSIZ, INTPRI 

GLOBL I NTPR I , PSW, DOSCHD, ESCFLG 

GLOBL INI TFL , JSWLOC > STPFLG 

GLOBL LCOL, LOTSPC, LOTNXT, LOTEND, LOTBUF 

GLOBL S*OTWT, CHKABT 

GLOBL QNSPNX, QHDSPN 

GLOBL LOTPNT, FF 

GLOBL LSTATE, SPCTTY, *CCLRN, CFBLK, L INCUR 

GLOBL S*INWT 

GLOBL MAXSEC, LRBFIL, SPACE 

GLOBL LCBIT, INTPRI 

GLOBL LRDTIM, LRTCHR,LBRKCH 

GLOBL S*TTFN, VQUANl , *NOLF, S*TTSC 

GLOBL LBRKCQ, *DBGMD 

GLOBL LFWLIM 

GLOBL VT52, VTIOO, LTRMTP, VT2007, VT2008 

GLOBL UHIMEM, TTCSCH 

GLOBL *TAPE, *XSTOP, LSW6, KPAR6, LTTPAR, *CFABT 

GLOBL BRKPT, *CFDCC, *CFCCL, *CFKIL 

GLOBL GETUCH, PUTUCH, VALADB, EMTBLK, FAKCMP 

GLOBL CS*EOF, CFLAG, CTRLZ, *FORMO, FF, OVRHC 

GLOBL CHNADR, EMTPS, URO, GTLTTY, LJSW, SETC, EMTX IT 

GLOBL CFIND, R*INST, CFNEST, CFSP, LSTPRM 

GLOBL PBFEND, PRMBUF, CFLFL4, INITLN 

GLOBL VINTIO, LHIPCT 

GLOBL LOGBUF, LOGEND, LOGCHN, LOGBLK, ABORT, EMTADR 

GLOBL LOGPTR, LOGFLG, LF*WRT, LITIME, LF*IN, LF*OUT. *ALTER 



Macro definitions: 

. MACRO DISABL 

BIS #PR7, @#PSW 

. ENDM DISABL 

. MACRO ENABL 

BIC INTPRI, S#PSW 

. ENDM ENABL 



DISABLE INTERRUPTS 



ENABLE INTERRUPTS 



. MACRO OCALL ENTADD 

.IF B, ENTADD 

.ERROR ; OCALL without entry address 
. ENDC 

CALL OVRHC 

. WORD ENTADD 

. ENDM OCALL 
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The TTMAP and TTMAPX 
terminal character b 
register are pushed 
UNMAP or UNMAPX macr 
Rl must contain the 
are being accessed. 
The difference betwe 
macros is that the X 
used from tuithin int 
to be running on the 
The TTMAP and UNMAP 
used in sections of 



macros are used to map kernel-mode par6 to the 
uffer area. The previous contents of par6 map 
on the stack and may be restored by using the 

OS. 

line index number of the line luhose buffers 

en the TTMAP-UNMAP macros and the TTMAPX-UNMAPX 
-versions are more efficient but may only be 
errupt service routines where we are guaranteed 

system stack, 
versions of the macros must only be 
code where the interrupts are disabled. 



. MACRO 
MOV 
. ENDM 



TTMAPX 

LTTPARCRl) 

TTMAPX 



@#KPAR6 



. MACRO UNMAPX 

. ENDM UNMAPX 

. MACRO TTMAP 

MOV @#KPAR6, MAPHLD 

MOV LTTPAR<Rl),e#KPAR6 

. ENDM TTMAP 

. MACRO UNMAP 

MOV MAPHLD, @#KPAR6 

. ENDM UNMAP 



000002 000000 



000004 
000006 
000010 
000012 
000014 
000016 
000020 



000022' 
000051 ' 
000077 ' 
000163' 
000226 ' 
000256 ' 
000304 ' 



i Data areas 




MAPHLD: . WORD 





; CSl table of 


error 


CSIERR: . WORD 


CSEMIL 


. WORD 


CSEMID 


. WORD 


CSEPRO 


. WORD 


CSEMFO 


. WORD 


CSEMNF 


. WORD 


CSEMIS 


. WORD 


CSEMIV 



; TEMP CELL USED BY TTMAP MACRO 



CSl text messages^ 



000022 
000051 
000077 
000163 
000226 
000256 
000304 



077 
077 
077 
077 
077 
077 
077 



103 
103 
103 
103 
103 
103 
103 



123 
123 
123 
123 
123 
123 
123 



CSEMIL 
CSEMID 
CSEPRO 
CSEMFO 
CSEMNF 
CSEMIS 
CSEMIV 



. NLIST BEX 

. ASCIZ /?CSI-F-Hlegal command/ 

. ASCIZ /?CSI-F-Illegal device/ 

. ASCIZ /?CSI-F-Protected file with same name already exists/ 

.ASCIZ /?CSI-F-Insuff icient space for file/ 

.ASCIZ /?CSI~F-Cannot find file/ 

.ASCIZ /?CSI-F-Invalid switch/ 

.ASCIZ /?CSI-F-Invalid switch value/ 

. LIST BEX 
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172 








173 








174 








175 


000340 


001 


002 




000343 


010 


020 




000346 


100 


200 


176 









; Bit mask table used to test* set* and clear the activation-character 
i flags for characters. 

i 

004 BITMSK: . BYTE 1, 2, 4, 10, 20, 40, 100, 200 
040 

. EVEN 



TSTTY - 


- TSX Terminal I/O routi MACRO V 


WRITTT - 

1 

2 


— . WRITE emt wi 


th terminal as o 


3 
4 
5 
6 


000350 


013703 


0000040 


7 


000354 


010300 




a 


000356 


004737 


OOOOOOG 


9 


000362 


013704 


0000060 


10 


000366 


001454 




11 


000370 


006304 




12 


000372 


060400 




13 


000374 


005300 




14 


000376 


004737 


OOOOOOG 


15 


000402 


042777 


OOOOOOG OOOOOOG 


16 


000410 


005737 


000002G 


17 


000414 


001010 




18 


000416 


032761 


OOOOOOG OOOOOOG 


19 


000424 


001404 




20 


000426 


112700 


OOOOOOG 


21 


000432 


004737 


002716' 


22 








23 








24 








25 


000436 


032703 


000001 


26 


000442 


001430 




27 








28 








29 








30 


000444 


012702 


OOOOOOG 


31 








32 








33 


000450 


105737 


OOOOOOG 


34 


000454 


001410 




35 


000456 


004737 


OOOOOOG 


36 


000462 


016100 


OOOOOOG 


37 


000466 


004737 


OOOOOOG 


38 


000472 


004737 


OOOOOOG 


39 


000476 


005302 




40 


000500 


003761 




41 


000502 


004737 


OOOOOOG 


42 


000506 


005700 




43 


000510 


001402 




44 


000512 


004737 


002716' 


45 


000516 


077411 




46 


000520 


000137 


001004' 


47 








48 








49 








50 


000524 


013704 


000006G 


51 
52 
53 


000530 


012702 


OOOOOOG 








54 


000534 


105737 


OOOOOOG 


55 


000540 


001410 




56 


000542 


004737 


OOOOOOG 


57 


000546 


016100 


OOOOOOG 



. SBTTL WRITTT 



Page 



. WRITE emt with terminal as output device 



WRITTT is executed when it is determined that the .WRITE emt is 
directed to the terminal device. 



GET BUFFER ADDRESS 
VALIDATE BUFFER ADDRESS 

GET # WORDS TO WRITE 

BR IF NO WORDS TO BE WRITTEN 

CONVERT TO # BYTES 

GET ADDRESS OF END OF BUFFER 

VALIDATE IT 

RESET CHANNEL END OF FILE FLAG 

WRITE TO BLOCK O? 

BR IF NOT 

DOES HE WANT FF ON WRITE OF BLK 0? 

BR IF NOT 

OUTPUT FF TO GET TO TOP OF FORM 



WRITTT: MOV 


EMTBLK+4, R3 


MOV 


R3, RO 


CALL 


VALADB 


MOV 


EMTBLK+6, R4 


BEQ 


2* 


ASL 


R4 


ADD 


R4, RO 


DEC 


RO 


CALL 


VALADB 


BIC 


#CS*EOF, ©CHNADR 


TST 


EMTBLK+2 


BNE 


16$ 


BIT 


#*FORMO, LSW4(R1) 


BEQ 


16* 


MOVE 


#FF, RO 


CALL 


PUTCHR 



Determine if buffer is on even byte boundary 



16*: 



BIT 
BEQ 



#1, R3 
9* 



i IS BUFFER STARTING ON EVEN BYTE BOUNDARY? 

; BR IF YES 



i Use slow routine if buffer is on odd byte boundary 

17*: MOV #TTCSCH, R2 ; RESET CHARACTER COUNT 

; See if me need to interrupt tt output processing to do a job 

i scheduler cycle. 

IS JOB SCHEDULER CYCLE NEEDED? 

BR IF NOT 

SEE IF WE HAVE BEEN ABORTED 

GET JOB'S CURRENT EXECUTION STATE 

REQUEUE JOB AND CALL JOB SCHEDULER 

SEE IF WE WERE ABORTED WHILE ASLEEP 

4*: DEC R2 ; TIME TO CHECK SCHEDULER? 

BR IF YES 

GET CHAR FROM USER'S BUFFER 
IS CHAR A NULL? 
SKIP NULLS 

PLACE IN USER'S BUFFER 
BR IF MORE CHARS TO DO 



1*: 
2*: 



TSTB 


DOSCHD 


BEQ 


4* 


CALL 


CHKABT 


MOV 


LSTATE<R1)>R0 


CALL 


QNSPNX 


CALL 


CHKABT 


DEC 


R2 


BLE 


17* 


CALL 


GETUCH 


TST 


RO 


BEQ 


1* 


CALL 


PUTCHR 


SOB 


R4,4* 


JMP 


TTFIN 



Use faster routine if buffer is on even byte boundary 

9*: MOV EMTBLK+6, R4 ; GET NUMBER OF WORDS TO WRITE 
7*: MOV ttTTCSCH, R2 ; RESET CHAR COUNT FDR CONTINUATION 
> See if we need to interrupt tt output processing to do a job 
; scheduler cycle. 

IS JOB SCHEDULER CYCLE NEEDED? 

BR IF NOT 

SEE IF WE HAVE BEEN ABORTED 

GET JOB'S CURRENT EXECUTION STATE 



TSTB 


DOSCHD 


BEQ 


8* 


CALL 


CHKABT 


MOV 


LSTATE<R1>,R0 
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58 000552 

59 000556 

60 000562 

61 000564 

62 000566 

63 000570 

64 000572 

65 000574 

66 000600 

67 000602 

68 000604 

69 000606 

70 000610 

71 000614 

72 000616 



004737 
004737 
005302 
003761 
106523 
111600 
001402 
004737 
012600 
105000 
000300 
001402 
004737 
077416 
000137 



OOOOOOG 
0000000 



8*: 



002716' 



5«: 



002716' 



001004' 



6*: 



CALL 


QNSPNX 


CALL 


CHKABT 


DEC 


R2 


BLE 


7* 


MFPD 


<R3) + 


MOVB 


(SP), RO 


BEQ 


5* 


CALL 


PUTCHR 


MOV 


<SP)+/RO 


CLRB 


RO 


SWAB 


RO 


BEQ 


6* 


CALL 


PUTCHR 


SOB 


R4, 8* 


JMP 


TTFIN 



; REQUEUE JOB AND CALL JOB SCHEDULER 

i SEE IF WE WERE ABORTED WHILE ASLEEP 

;TIME TO CHECK FOR SCHEDULER CYCLE? 

iBR IF YES 

;GET DATA WORD FROM USER'S BUFFER 

J OET LOW-ORDER BYTE OF WORD 

i IGNORE IT IF IT IS NULL 

; SEND CHAR TO TERMINAL 

iGET DATA WORD 

> CLEAR LOW-ORDER BYTE 

iGET HIGH-ORDER BYTE TO LOW-ORDER 

;BR IF LOW-ORDER BYTE IS NULL 

; SEND CHAR TO TERMINAL 

jLOOP if more words TO WRITE 

> FINISHED 
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1 

2 
3 
4 

5 








6 


000622 


013703 


000004G 


7 


000626 


010300 




8 


000630 


004737 


OOOOOOG 


9 


000634 


013704 


000006G 


10 


000640 


006304 




11 


000642 


060400 




12 


000644 


005300 




13 


000646 


004737 


OOOOOOG 


14 


000652 


032777 


OOOOOOG OOOOOOG 


15 


000660 


001407 




16 


000662 


042777 


OOOOOOG OOOOOOG 


17 


000670 


052737 


OOOOOOG OOOOOOG 


18 


000676 


000425 




19 


000700 


005737 


000002G 


20 


000704 


001004 




21 


000706 


112700 


000136 


22 


000712 


004737 


002716' 


23 


000716 


004737 


006012' 


24 


000722 


120027 


OOOOOOG 


25 


000726 


001406 




26 


000730 


105700 




27 


000732 


001771 




28 


000734 


004737 


OOOOOOG 


29 


000740 


077412 




30 








31 


000742 


000420 




32 








33 


000744 


052777 


OOOOOOG OOOOOOG 


34 








35 








36 








37 


000752 


005704 




38 


000754 


001413 




39 


000756 


010300 




40 


000760 


163700 


000004G 


41 


000764 


001403 




42 


000766 


032700 


000777 


43 


000772 


001404 




44 


000774 


005000 




45 


000776 


004737 


OOOOOOG 


46 


001002 


077413 




47 









. SBTTL TTREAD — .READ emt with input from terminal 

TTREAD is executed when a .READ uias issued directing input 
from the terminal. 



TTREAD: MOV 
MOV 
CALL 
MOV 
ASL 
ADD 
DEC 
CALL 
BIT 
BEQ 
BIC 
BIS 
BR 

2*: TST 
BNE 
MOVB 
CALL 

1*: CALL 
CMPB 
BEQ 

4*: TSTB 
BEQ 
CALL 



EMTBLK+4, R3 

R3, RO 

VALADB 

EMTBLK+6, R4 

R4 

R4, RO 

RO 

VALADB 

#CS*EOF, SCHNADR 

2* 

#CS*EOF, eCHNADR 

#CFLAG, EMTPS 

TTZERO 

EMTBLK+2 

1* 

tt'-^, RO 

PUTCHR 

GETCHR 

RO, #CTRLZ 

TTEOF 

RO 

1* 

PUTUCH 

R4, 1* 



i GET BUFFER ADDRESS 

; VALIDATE ADDRESS OF BUFFER 

i GET # WORDS TO READ 

; CONVERT TO # BYTES 

; GET ADDRESS OF END OF BUFFER 

{VALIDATE IT 

iDID LAST READ GET END OF FILE? 

i BRANCH IF NOT 

i RESET END OF FILE FLAG 

iSET C-BIT IN USER'S PS 

i READ BLOCK O? 

i BRANCH IF NOT BLOCK O 

i PRINT PROMPT CHARACTER 

i GET NEXT INPUT CHAR 
; CTRL-Z ===> END OF FILE 
i BRANCH IF END OF FILE 
i IGNORE NULLS 

i MOVE CHAR TO USER'S BUFFER 
i BR IF MORE ROOM LEFT 



SOB 
i NORMAL END OF READ 

BR TTFIN 
; END OF FILE ON INPUT FROM TT: 
TT^OF: BIS #CS*EOF, SCHNADR i REMEMBER END OF FILE HIT 

Hit end of file — Fill remainder of buffer with nulls 



TTZERO: TST R4 

BEQ TTFIN 

1*: MOV R3, RO 

SUB EMTBLK+4, RO 

BEQ 2* 

BIT #777, RO 

BEQ TTFIN 

CLR RO 

CALL PUTUCH 

SOB R4, 1* 
Fall into TTFIN 



?*: 



; ROOM LEFT IN BUFFER? 

BR IF NOT 

GET NEXT CHAR POSITION 

GET # CHARACTERS TRANSFERRED SO FAR 

BR IF HAVEN'T GOTTEN ANY CHARS AT ALL 

FILLED TO BLOCK BOUNDARY? 

BR IF YES 

STORE NULL TO FILL OUR BLOCK 

MOVE NULL TO USER'S BUFFER 
iLOOP TO FILL REST OF USER'S BUFFER 



< 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 



FINISHED WITH TT READ/WRITE 



001004 
001006 
001012 
001014 
001016 
001020 



001024 
001032 

001034 
001040 
001044 
001046 
001052 
001056 
001062 



010304 
163704 
006204 
103001 
005204 
010437 



023727 
101415 

004737 
105737 
001410 
004737 
016100 
004737 
004737 



TTFIN: 



0000040 



OOOOOOG 



2*: 



MOV 


R3, R4 i 


SUB 


EMTBLK+4, R4 ; 


ASR 


R4 i 


BCC 


2* i 


INC 


R4 


MOV 


R4, URO ; 



0000 100 000001 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



GET CURRENT BUFFER POINTER 
GET # BYTES TRANSFERED 
CONVERT TO # WORDS 
BR IF NO ODD BYTE 

RETURN # WORDS IN USER'S RO 

See if we need to call user's completion routine. 

CMP EMTBLK+10, #1 ; COMPLETION ROUTINE SPECIFIED? 

BLOS 1* i BR IF NOT 

Enter a request to call user's completion routine. 

QUEUE A COMPLETION REQUEST 

IS JOB SCHEDULER CYCLE NEEDED? 

BR IF NOT 

SEE IF WE HAVE BEEN ABORTED 

GET JOB'S CURRENT EXECUTION STATE 

REQUEUE JOB AND CALL JOB SCHEDULER 

SEE IF WE WERE ABORTED WHILE ASLEEP 



001066 000137 OOOOOOG 



CALL 


FAKCMP 


TSTB 


DOSCHD 


BEQ 


1* 


CALL 


CHKABT 


MOV 


LSTATE(R1),R0 


CALL 


QNSPNX 


CALL 


CHKABT 


; Finished 




i 

1*: JMP 


EMTXIT 



€ 

I 



TSTTY -- TSX Terminal I/O routi MACRO V05. 05 
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1 

2 








3 








4 








5 


001072 


013702 


0000000 


6 


001076 


020237 


OOOOOOG 


7 


001102 


101403 




8 


001104 


010200 




9 


001106 


004737 


OOOOOOG 


10 


001112 


004737 


002514' 


11 


001116 


000137 


OOOOOOG 



. SBTTL . PRINT 
PROCESS THE . PRINT EMT 



PRINT: MOV 
CMP 
BLOS 
MOV 
CALL 

1*: CALL 
JMP 



URO, R2 

R2, UHIMEM 

1« 

R2i RO 

VALADB 

UOTSTR 

EMTXIT 



; GET ADDRESS OF STRING TO PRINT 

; IS BUFFER ADDRESS IN NORMAL JOB REGION? 

; BR IF YES 

; VALIDATE ADDRESS OF BUFFER 

i PRINT THE STRING FROM USER'S BUFFER 






TSTTY — TSX Terminal I/O routi 
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I DO 



1 

2 
3 
4 

5 001 1; 

6 

7 

8 

9 001122 
10 001130 
11 
12 
13 
14 

15 001132 

16 001140 

17 001142 

18 001150 
19 

20 
21 
22 

23 001152 

24 001156 

25 001162 

26 001166 
27 

28 
29 
30 

31 001170 

32 001172 
33 

34 
35 

36 001176 

37 001202 

38 001210 

39 001212 

40 001216 

41 001220 

42 001224 



026127 OOOOOOG 000010 
101022 



032761 OOOOOOG 

001416 

032761 OOOOOOe 

001412 



OOOOOOG 
OOOOOOG 



013700 OOOOOOG 

006560 000002 

022627 103776 
001403 



. SBTTL . TTYOUT 

i Process the .TTYOUT EMT 

TTYOUT: 

; See if output ring buffer is full 

CMP L0TSPC(R1)> #8. > Is there plenty of free space in output buf? 
BHI 3* i Br if yes 

Output buffer is full. 

See if user wants to suspend job or have carry flag set on return 

BIT tNOWAIT, LJSW<Rl)iDid he request nowait TT I/O? 

BEQ 3* iBr if not 

BIT #*NOWTT. LSW5(Rl)jDid he enable no-u>ait TT I/O? 

BEQ 3* ;Br if not 

Output buffer is full and user has enable no-uiait mode. 
See if instruction foiloiuing EMT 341 is a BCS . -2 

Get address of EMT 341 instruction 

Fetch follouiing instruction 

BCS . -2 instruction? 

Br if yes — Don't return if he will spin 

Return with carry flag set» and error code to signal that output 
buffer is full. 



MOV 


EMTADR, RO 


MFPI 


2(R0> 


CMP 


<SP)+, #103776 


BEQ 


3* 



005000 
000137 



013700 
032761 
001003 
004737 
000402 
004737 
000137 



OOOOOOG 



OOOOOOG 
OOOOOOG 

002716' 

003726 ' 
OOOOOOG 



CLR 
JMP 



RO 
SETERR 



j Return error code O 



3*: 



OOOOOOG 



1$: 
2*: 



Transmit the character <wait if output buffer is full) 

MOV URO, RO J GET THE CHAR TO SEND 

BIT #*HITTY, LSW4<Rl)i ARE WE IN HIGH EFFICIENCY MODE? 

BNE 1* J BR IF YES 

CALL PUTCHR > SEND THE CHAR 

BR 2* 

CALL HIPUT i SEND CHAR IN HIGH EFFICIENCY MODE 

JMP EMTXIT 



4 
€ 
I 

( 
i 
€ 
i 

i 
i 
i 

t 
I 
I 



TSTTY - 
. TTYIN 
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001230 
001236 



1 
2 
3 
4 
5 
6 
7 

a 

9 
10 
11 
12 

13 001240 

14 001244 

15 001246 

16 001252 

17 001254 
IS 001262 

19 001264 

20 001272 

21 001276 

22 001304 

23 001312 

24 001314 

25 001322 

26 001324 

27 001332 

28 001334 

29 001342 

30 001346 
31 

33 

34 001352 

35 001360 

36 001364 

37 001370 



032761 
001445 



005761 
001042 
004737 
103037 
032761 
001405 
052761 
004737 
042761 
032761 
001004 
032761 
001007 
032761 
001007 
052761 
004737 
000137 



042761 
004737 
010037 
000137 



SBTTL 



TTYIN 



Process the . TTINR EMT 



OOOOOOG OOOOOOG TTYIN: 



BIT #NOWAIT. LJSW(R1);DID HE REQUEST NOWAIT .TTYIN? 
BEQ 1* iBR IF NOT 



OOOOOOG 

010030' 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
011430' 
OOOOOOG 



User set JSW flag which says he wants the c-flag set and 
immediate return if there are no characters available. 
We will do this once only per end of input. 
See if any activation chars are pending. 



OOOOOOG 

OOOOOOG 

OOOOOOG 4*: 
OOOOOOG 

OOOOOOG 

OOOOOOG 3*: 

OOOOOOG 

2$: 



Get a 



OOOOOOG OOOOOOG 1*: 

006012' 

OOOOOOG 

OOOOOOG 



TST 


LACTIV<R1) 


BNE 


1* 




CALL 


CFTEST 




BCC 


1* 




BIT 


#*LOFCF, 


LSW9(R1) 


BEQ 


4* 




BIS 


#«DOOFF, 


LSW(Ri) 


CALL 


STOP 




BIC 


#*NOIN, LSW3(R1) 


BIT 


#*DBGMD, 


LSW6<R1) 


BNE 


3* 




BIT 


#*NOWTT, 


LSW5<R1) 


BNE 


2$ 




BIT 


#*FLAGC, 


LSW4 < R 1 ) 


BNE 


1* 




BIS 


#*FLAGC> 


LSW4<R1) 


CALL 


DFRREL 




JMP 


SETC 




charac 


ter 




BIC 


#*FLAGC> 


LSW4<R1) 


CALL 


GETCHR 




MOV 


RO, URO 




JMP 


EMTXIT 





ANY ACTIVATION CHARS PENDING? 

BR IF YES 

IS INPUT COMING FROM A COMMAND FILE? 

BRANCH IF YES 

Are we processing a logoff command file? 

Br if not 

Force job logoff 

Stop job execution 

ALLOW TERMINAL INPUT TO OCCUR 

IS DEBUGGER DOING TERMINAL INPUT? 

BR IF YES — WAIT FOR ACTIVATION CHAR 

DID HE ENABLE NO-WAIT TT INPUT? 

IF YES THEN SIGNAL NO CHARS AVAILABLE 

HAVE WE ALREADY TOLD HIM ONCE? 

BR IF YES (WAIT FOR INPUT NOW) 

REMEMBER THAT WE HAVE TOLD HIM 

RELEASE DEFERRED ECHO MODE 

RETURN WITH C-FLAG SET 



i GO GET A CHARACTER 
J MOVE TO USER'S RO 



TSTTY — TSX Terminal I/O routi MACRO V05. 05 
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€ 
€ 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



001374 
001400 
001402 
001406 
001410 
001416 



001422 
001426 
001430 
001434 
001440 
001442 
001450 
001452 
001456 
001462 
001464 
001466 
001472 
001476 
001500 



001502 
001506 
001510 
001514 
001520 
001522 
001524 
001530 
001534 
001540 
001544 
001550 
001554 

001556 

001560 



001562 
001566 
001570 



105737 
001403 
004737 
000403 
042761 
000137 



013703 
010300 
004737 
013704 
001766 
032761 
001406 
004737 
004737 
077405 
000754 
004737 
004737 
077405 
000746 



013703 
010300 
004737 
013704 
060400 
005300 
004737 
005037 
004737 
004737 
005237 
005761 
001720 

077412 

000417 



105737 
001405 
016137 



. SBTTL High-efficiency TTY EMTs 
TURN HIGH-EFFICIENCY TTY MODE ON OR OFF. 



0000000 
005430 ' 



XHISET: TSTB 
BEQ 
CALL 
BR 
OOOOOOG OOOOOOG 1*: BIC 
OOOOOOG HIRTN: JMP 



; TURN MODE ON OR OFF? 

i BR TO TURN IF OFF 

iTURN ON HIGH-EFFICIENCY MODE 



EMTBLK 

1* 

HION 

HIRTN 

#«HITTY,LSW4<R1) iTURN HIGH-EFFICIENCY MODE OFF 

EMTXIT 



HIGH-EFFICIENCY OUTPUT. 



000002G 

OOOOOOG 
000004G 

OOOOOOG OOOOOOG 

OOOOOOG 
003726 ' 



OOOOOOG 
002716' 



XHIOUT: 


MOV 


EMTBLK+2, R3 




MOV 


R3, RO 




CALL 


VALADB 




MOV 


EMTBLK+4, R4 




BEQ 


HIRTN 




BIT 


#*HITTY, LSW 




BEQ 


1* 


2*: 


CALL 


GETUCH 




CALL 


HIPUT 




SOB 


R4, 2* 




BR 


HIRTN 


1*: 


CALL 


GETUCH 




CALL 


PUTCHR 




SOB 


R4, 1* 




BR 


HIRTN 



i BUFFER ADDRESS 

; VALIDATE THE ADDRESS 

; # BYTES TO SEND 
i BR IF NO CHARACTERS TO SEND 
#*HITTY, LSW4<Rl)i ARE WE SENDING IN HIGH EFFICIENCY MODE? 

i BR IF NOT 

; GET CHAR FROM USER'S BUFFER 
J SEND CHAR IN HIGH EFFICIENCY MODE 



GET CHAR FROM USER'S BUFFER 
SEND THE CHARACTER 



HIGH-EFFICIENCY TTY INPUT 



000002G 

OOOOOOG 
000004G 



OOOOOOG 
OOOOOOG 
006012' 
OOOOOOG 
OOOOOOG 
OOOOOOG 



4*: 



1$: 



IN: MOV 


EMTBLK+2, R3 


MOV 


R3, RO 


CALL 


VALADB 


MOV 


EMTBLK+4, R4 


ADD 


R4, RO 


DEC 


RO 


CALL 


VALADB 


CLR 


URO 


CALL 


GETCHR 


CALL 


PUTUCH 


INC 


URO 


TST 


LACTIV(Rl) 


BEQ 


HIRTN 


NOT ACTIVATION CHARACTER 


SOB 


R4, 4* 


OVERFLOWED 


USER'S BUFFER 


BR 


XTCC 



; ADDRESS OF USER'S BUFFER 
i VALIDATE THE ADDRESS 

;SIZE OF BUFFER 

i GET ADDRESS OF END OF BUFFER 

; VALIDATE THE ADDRESS 

; RETURN # CHARS GOTTEN IN RO 

;GET NEXT CHARACTER 

J MOVE CHAR TO USER 'S BUFFER 

J COUNT CHARACTERS IN USER'S RO 

;ARE THERE ANY PENDING ACTIVATION CHARS? 

i WE ARE DONE IF NOT 
SEE IF BUFFER IS FULL. 

J LOOP IF ROOM LEFT IN BUFFER 
SET C-FLAG AND RETURN. 

i RETURN WITH C-FLAG SET 



CHECK FOR TT INPUT ERRORS. 



OOOOOOG 



OOOOOOG OOOOOOG 



XTERCK: TSTB 
BEQ 
MOV 



EMTBLK 

1* 

LINCNT<R1),UR0 



CHECK FOR ERRORS? 

BR IF YES 

PUT # OF INPUT CHARS PENDING IN USER'S RO 
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58 001576 

59 001602 

60 001610 

61 001612 

62 001620 
63 

64 
65 
66 

67 001624 

68 001632 

69 001640 

70 001646 



000137 
032761 
001702 
042761 
000137 



013761 
013761 
052761 
000137 



OOOOOOG 

OOOOOOG OOOOOOG 1$: 

OOOOOOG OOOOOOG 
OOOOOOG XTCC: 
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JMP EMTXIT 

BIT #*TTERR, LSW4(R1);DID ANY TT INPUT ERRORS OCCUR' 

BEQ HIRTN i BR IF NOT 

BIC #«TTERR. LSW4(Rl)i RESET ERROR FLAG 

JMP SETC i RETURN WITH C-FLAG SET 



START TIMER FOR TT READ REQUEST 



000002G OOOOOOG XRDTIM: MOV 

000004G OOOOOOG MOV 

100000 OOOOOOG BIS 

OOOOOOG JMP 



EMTBLK+2. LRDTIM<R1);SET TT READ TIMEOUT VALUE (0.5 SEC UNITS) 
EMTBLK+4, LRTCHR<R1)>SET TT TIMEOUT ACTIVATION CHARACTER 
#100000, LRTCHR<R1) > SET FLAG SAYING WE HAVE A TIME-OUT CHAR 
EMTXIT 



TSTTY — TSX Terminal I/O routi MACRO V05. 05 
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1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 

12 001652 

13 001654 

14 001656 

15 001660 

16 001662 
17 

le 

19 

20 001664 

21 001666 

22 001670 

23 001674 

24 001700 
25 

26 
27 
28 
29 

30 001706 

31 001714 

32 001716 

33 001724 
34 

35 
36 
37 
38 

39 001726 

40 001734 

41 001736 

42 001744 

43 001746 

44 001754 
45 

46 
47 

48 001760 

49 001764 

50 001770 
51 

52 
53 
54 
55 

56 001772 

57 002000 



BBTTL ASKLIN — Accept line from terminal 



010146 
010246 
010346 
010446 
010546 



010304 
010305 
062705 
113701 
052761 



032761 
001404 
032761 
001440 



032761 
001411 
032761 
001060 
042761 
004737 



005037 
004737 
103020 



032761 
001471 



ASKLIN is an internal subroutine called from .csispc, .csigen & . gtlin 
to print a prompt and accept a line of input from the tty or a 
command file. 

Inputs: 
R2 = Address of prompt string (in user's area). 
R3 = Address of buffer where accepted string is to be stored. 
(Must be in kernel space) 



ASKLIN: 



MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, -(SP) 
R3, -(SP) 
R4, -(SP) 
R5, -(SP) 



000120 
OOOOOOG 
OOOOOOG 0000000 



Set up buffer pointer and buffer length info 

REMEMBER ADDRESS OF START OF BUFFER 
GET ADDRESS OF END OF RECEIVING BUFFER 
(GETLIN RESTRICTS BUFFER TO 81 CHARS) 
GET CURRENT USER INDEX # 
REMEMBER THAT . GTLIN IS BEING DONE 

Determine if we need to process a deferred control~C character 
that was previously acquired from an expanded CCL command by a 
non-terminating . GTLIN 



MOV 


R3, R4 


MOV 


R3, R5 


ADD 


#80. , R5 


MOVE 


CORUSR/Rl 


BIS 


#*GTLIN, LSW4(R1) 



OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 



BIT #*CFDCC>LSW4(R1)jD0 

BEQ 10* J BR 

BIT #GTLTTY, LJSW(Rl)i IS 

BEQ 11* iBR 



WE HAVE A DEFERRED -^C? 

IF NOT 

THIS A NON-TERMINATING . GTLIN? 

IF NOT — REPORT CONTROL-C NOW 



If this is a terminating .GTLIN and we pushed a control-C 
previously due to a non-terminating .GTLIN* halt the execution 
of the program without printing prompt. 



OOOOOOG OOOOOOG 10*: 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



BIT #*NTGCC , LSW9 ( R 1 ) 

BEQ 20* 

BIT #GTLTTy. LJSW(Rl) 

BNE 15* 

BIC #*NTGCC>LSW9(R1) 

CALL STOP 



Did we push a control~C? 

Br if not 

Is this a non-terminating .GTLIN? 

Br if non-terminating . GTLIN 

Say ctrl-C not pushed 

Stop program execution 



Determine if the input is coming from a command file 



OOOOOOG 
007332 ' 



20*: 
13*: 



CLR CFSPND 
CALL GTCFCH 
BCC a* 



i No suspended command file yet 

i TRY TO GET A CHAR FROM COMMAND FILE 

; BR IF GOT A CHAR FROM COMMAND FILE 



Input is not coming from a command file. 

See if we need to reenter Kmon to get next command from IND or 

from user command processor. 



OOOOOOG OOOOOOG 



BIT #*INKMN, LSW4(R1) 
BEQ 3* 



ARE WE IN KMON NOW? 
BR IF NOT 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



002002 
002010 
002012 
002016 
002024 
002026 



002032 
002036 
002040 
002046 
002050 
002054 
002060 



002062 
002070 
002072 
002076 
002100 
002104 
002106 
002114 
002116 
002124 
002126 
002134 
002142 
002146 
002150 
002154 
002162 



002164 
002166 
002170 
002174 
002176 
002204 



032761 
001006 
013700 
132760 

001457 
004737 



120027 
001006 
032761 
001402 
112700 
120027 
001033 



032761 
001427 
004737 
103403 
120027 
00 1 372 
032761 
001404 
052761 
000717 
052761 
013737 
004737 
000406 
110037 
032761 
001012 



005702 
001410 
005737 
001003 
042761 
004737 



0000000 OOOOOOG 

0000000 
OOOOOOG OOOOOOG 

OOOOOOG 



11«: 
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BIT #*UKMON, LSW7<R1>; IS USER COMMAND PROCESSOR ACTIVE? 

BNE 11* ;BR IF YES — GET COMMAND FROM IT 

MOV CXTRMN, RO ; GET ADDR OF SIMULATED RMON DATA FOR JOB 

BITB #IN«ACT, R*INST(RO); IS INPUT BEING PROVIDED BY IND? 

BEQ 3* ; BR IF NOT 

CALL STOP ; REENTER KMON AND GET NEXT COMMAND FROM 



IND 



OOOOOOG 8*: 

OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 



We got a character from a control file. 

See if character is a control-C or control-Z. 

Note: we treat ctrl-Z the same as ctrl-C if KMON is reading file. 

IS CHAR CTRL-Z? 
BR IF NOT 

IS KMON READING FILE? 
BR IF NOT 

TRANSLATE CTRL-Z TO CTRL-C 
16*: CMPB RO, #CTRLC i IS CHAR CTRL-C? 

BR IF NOT -^C 



There are 3 cases to deal with: 

1. This is not a non-terminating . GTLIN. In this case we simply 
accept the ctrl-C which terminates the execution of the program. 

2. This is a non-terminating .GTLIN and we are getting characters 
from an expanded CCL command. In this case, we defer the ctrl-C 
processing until the next non-terminating .GTLIN is done. 

3. This is a non-terminating .GTLIN and we are not getting characters 
from an expanded CCL command. In this case we defer the ctrl-C 
and get characters from the terminal. 



CMPB 


RO, #CTRLZ 


BNE 


16* 


BIT 


#*INKMN, LSW4<Ri> 


BEQ 


16* 


MOVB 


#CTRLC, RO 


: CMPB 


RO, #CTRLC 


BNE 


7* 


Character 


is control~C. 



OOOOOOG OOOOOOG 

007332' 14*; 

OOOOOOG 

OOOOOOG OOOOOOG 15*: 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 12*: 
OOOOOOG OOOOOOG 
010100' 

OOOOOOG 7*: 

OOOOOOG OOOOOOG 



BIT #GTLTTY, LJSW<R1); 

BEQ 7* i 

CALL GTCFCH i 

BCS 15* 

CMPB RO, #LF > 

BNE 14* i 

BIT #*CFCCL,LSW4<R1); 

BEQ 12* ; 

BIS #*CFDCC,LSW4(Rl)i 

BR 13* i 

BIS #*NTGCC, LSW9(Rl)i 

MOV CFPNT, CFSPND i 

CALL CFSTOP i 

BR 3* 

MOVB RO, CFHOLD i 

BIT #*QUIET, LSW4<R1)J 

BNE 1* ; 



IS THIS A NON-TERMINATING . GTLIN? 
BR IF NOT — GO TERMINATE PROGRAM 
SKIP TO END OF LINE THAT HAS •"•C 

REACHED END OF LINE? 

LOOP IF NOT 

IS THIS THE END OF AN EXPANDED CCL COMMAND? 

BR IF NOT 

REMEMBER WE HAVE A DEFERRED CONTROL-C 

GO BACK AND GET NEXT CHAR FOLLOWING CONTROL- 

Push a control-C for next . GTLIN 

SAVE COMMAND FILE POINTER — Suspend file 

Suspend command file input 

PUSH COMMAND FILE CHAR 

ARE WE LISTING THE COMMAND FILE? 

BR IF NOT — DON'T LIST PROMPT THEN 



List prompt string 



3*: 



OOOOOOG 



OOOOOOG OOOOOOG 
002514' 



!1*: 



TST 
BEQ 
TST 
BNE 
BIC 
CALL 



R2 
1* 

CFPNT 
21* 



; Is there a 

i Br if not 

; Is input coming 

; Br if yes 



prompt string to print? 

from a command file? 



#*CTRLD, LSW3<Ri); Reset control-0 



UOTSTR 



Print the prompt 
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115 










116 










117 










lis 


002210 


005737 


OOOOOOG 


1*: 


119 


002214 


001003 






120 


002216 


052761 


OOOOOOG OOOOOOG 




121 


002224 


004737 


006012' 


19* 


122 


002230 


042761 


OOOOOOG OOOOOOG 




123 


002236 


120027 


OOOOOOG 




124 


002242 


001442 






125 


002244 


120027 


000041 




126 


002250 


001014 






127 


002252 


005737 


OOOOOOG 




128 


002256 


001004 






129 


002260 


032761 


OOOOOOG OOOOOOG 




130 


002266 


001005 






131 


002270 


004737 


006012' 


18* 


132 


002274 


120027 


OOOOOOG 




133 


002300 


001373 






134 


002302 


020305 




17* 


135 


002304 


101341 






136 


002306 


110023 






137 


002310 


120027 


000003 




138 


002314 


001004 






139 


002316 


032761 


OOOOOOG OOOOOOG 




140 


002324 


001014 






141 


002326 


120027 


OOOOOOG 


4«: 


142 


002332 


001326 






143 


002334 


032761 


OOOOOOG OOOOOOG 




144 


002342 


001722 






145 


002344 


004737 


OOOOOOG 




146 


002350 


020304 




2*: 


147 


002352 


001716 






148 


002354 


105043 






149 










150 








J 


151 










152 


002356 


013700 


OOOOOOG 


6*: 


153 


002362 


001404 






154 


002364 


004737 


010124' 




155 


002370 


005037 


OOOOOOG 




156 


002374 


042761 


OOOOOOG OOOOOOG 


5«: 


157 


002402 


012605 






158 


002404 


012604 






159 


002406 


012603 






160 


002410 


012602 






161 


002412 


012601 






162 


002414 


000207 







Get the input line 



TST 


CFPNT 


BNE 


19* 


BIS 


#*CFABT, LSW6<R1> 


CALL 


GETCHR 


BIC 


#*CFABT/LSW6<R1> 


CMPB 


RO, #LF 


BEQ 


2* 


CMPB 


RO, #'! 


BNE 


17* 


TST 


CFPNT 


BNE 


18* 


BIT 


#*ALTER.LSW2<R1) 


BNE 


17* 


CALL 


GETCHR 


CMPB 


RO, #CR 


BNE 


IS* 


CMP 


R3, R5 


BHI 


1* 


MOVB 


RO, (R3) + 


CMPB 


RO, #3 


BNE 


4* 


BIT 


#*ALTER, LSW2<R1) 


BNE 


6* 


CMPB 


RO, #CTRLZ 


BNE 


1* 


BIT 


#*INKMN, LSW4(R1) 


BEQ 


1* 


CALL 


STOP 


CMP 


R3, R4 


BEQ 


1* 


CLRB 


-(R3) 



Input coming from a command file? 

Br if yes 

If ctrl-C received, abort command files 

GET AN INPUT CHAR 

Clear command file abort flag 

REACHED END OF LINE? 

BR IF YES 

START OF COMMENT? 

BR IF NOT 

Input coming from command file? 

If so, ! begins a comment 

; Does user uant !? 

Br if so 

SKIP OVER REST OF COMMENT 

LOOP TILL WE REACH END OF COMMENT 

ARE PAST THE END OF THE BUFFER? 

BR IF YES < DISCARD THE CHARACTER) 

MOVE CHAR TO BUFFER 

is this a control-C 

BR if not 

Should we activate on control-C 

BR if yes 

IS CHAR CTRL-Z? 

BR IF NOT 

IS KMON DOING . GTLINE? 

BR IF NOT KMON 

TERMINATE PROGRAM IF CTRL-Z HIT 

IGNORE THE LF IF IT IS AT START OF LINE 

REPLACE CR WITH NULL 



Finished getting input line 



MOV CFSPND, RO 

BEQ 5* 

CALL CFSTRT 

CLR CFSPND 

BIC #*GTLIN, LSW4<Rl)iSAY 

MOV <SP)+, R5 

MOV (SP)+, R4 

MOV <SP)+, R3 

MOV (SP)+, R2 

MOV (SP)+, Rl 

RETURN 



iGET ©FILE POINTER 

; BR IF NO NEED TO REPLACE 

i Restart command file input 

i SAY THERE IS NO SUSPENDED COMMAND FILE 



GTLIN EMT IS FINISHED 
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€ 
€ 
C 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 



002416 010046 

002420 010146 

002422 010246 

002424 113701 0000000 

002430 1 1 2200 

002432 001406 

002434 120027 000200 

002440 001413 

002442 004737 002716' 

002446 000770 

002450 112700 000015 

002454 004737 002716' 

002460 112700 000012 

002464 004737 002716' 

002470 012602 

002472 012601 

002474 012600 

002476 000207 



002500 

002500 006302 

002502 016202 000004' 

002506 004737 002416' 

002512 000207 



SBTTL OUTSTR — Print a system message on the user's console 



OUTSTR is called to print a system message on the user's terminal. 
Inputs: 

Address of ASCI2 string to be printed (in kernel space). 



R2 
OUTSTR 

1$: 



2«: 



9*: 



MOV 

MOV 

MOV 

MOVE 

MOVB 

BEQ 

CMPB 

BEQ 

CALL 

BR 

MOVB 

CALL 

MOVB 

CALL 

MOV 

MOV 

MOV 

RETURN 



RO, -<SP) 

Rl, -(SP) 

R2, -(SP) 

CORUSR, Rl 

(R2)+, RO 

2* 

RO, #200 

9* 

PUTCHR 

1* 

#15>R0 

PUTCHR 

#12, RO 

PUTCHR 

(SP)+>R2 

(SP)+, Rl 

(SP)+> RO 



GET USER'S INDEX # 

GET NEXT CHAR OF MESSAGE 

BRANCH WHEN END HIT 

STOP WITHOUT CR-LF? 

BRANCH IF YES 

OUTPUT THE CHARACTER 

PUT OUT CR-LF 



SBTTL CSIMSG — Print a CSI asciz error message 



CSIMSG is called to print a CSI asciz error message on the user's 
terminal. 



Inputs: 
R2 = CSI error message code. 



CSIMSG: 



ASL 
MOV 
CALL 
RETURN 



R2 

CSIERR(R2),R2 

OUTSTR 



MULTIPLY BY TWO 

INDEX TO THE CORRECT ERROR STRING 

PRINT THE ERROR MESSAGE 

RETURN TO CONTINUE PROCESSING 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



002514 
002516 
002520 
002522 
002524 
002526 
002532 
002536 
002542 
002546 
002550 
002552 
002554 



002556 
002562 
002566 
002570 
002574 
002600 
002604 
002610 
002612 
002614 
002616 
002620 
002622 
002624 
002626 
002632 
002634 
002636 
002640 
002642 
002644 
002646 
002652 
002654 
002656 
002660 
002662 
002666 
002672 
002676 
002702 
002704 
002706 



010046 
010146 
010246 
010346 
010446 
012704 
113701 
012703 
032702 
001420 
005302 
106522 
000426 



012704 
105737 
001410 
004737 
016100 
004737 
004737 
005304 
003761 
106522 
111600 
001417 
120003 
001413 
004737 
012600 
105000 
000300 
001410 
120003 
001416 
004737 
000756 
005726 
0004 U 
005726 
112700 
004737 
112700 
004737 
012604 
012603 
012602 



. SBTTL UOTSTR — print an asciz user's message on the user's console 

UOTSTR is called to print an asciz message that is stored in the 
user's area. 



Inputs: 



OOOOOOG 
OOOOOOG 
000200 
000001 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



002716' 



002716' 



000015 
002716' 
000012 
002716' 



; R2 


= Address of asciz str 


UOTSTR : 


MOV 


RO, -(SP) 




MOV 


Rl, -(SP) 




MOV 


R2, -(SP) 




MOV 


R3, -(SP) 




MOV 


R4, -(SP) 




MOV 


#TTCSCH, R4 




MOVE 


CORUSR.Rl 




MOV 


#200, R3 




BIT 


#1,R2 




BEG 


3* 




DEC 


R2 




MFPD 


(R2) + 




BR 


4* 


; See 


if we 


need to interrup 


1*: 


MOV 


#TTCSCH, R4 




TSTB 


DOSCHD 




BEQ 


3* 




CALL 


CHKABT 




MOV 


LSTATE(R1)>R0 




CALL 


QNSPNX 




CALL 


CHKABT 


3*: 


DEC 


R4 




BLE 


1* 




MFPD 


(R2) + 




MOVB 


(SP),RO 




BEQ 


5* 




CMPB 


RO, R3 




BEQ 


10* 




CALL 


PUTCHR 


4*: 


MOV 


(SP)+, RO 




CLRB 


RO 




SWAB 


RO 




BEQ 


2* 




CMPB 


RO, R3 




BEQ 


9* 




CALL 


PUTCHR 




BR 


3* 


10*: 


TST 


(SP) + 




BR 


9* 


5$: 


TST 


(SP) + 


2*: 


MOVB 


#15, RO 




CALL 


PUTCHR 




MOVB 


#12, RO 




CALL 


PUTCHR 


9$: 


MOV 


(SP)+, R4 




MOV 


(SP)+, R3 




MOV 


( SP ) +, R2 



asciz string to be printed (in user's space). 



SET CHARACTER COUNTER FOR SCHEDULING CALL 

GET USER'S INDEX # 

GET CHAR USED TO STOP STRING WITHOUT CR-LF 

IS BUFFER ON EVEN OR ODD BYTE BOUNDARY? 

BR IF ON EVEN BYTE BOUNDARY 

POINT TO 1ST BYTE OF WORD 

GET WORD CONTAINING BYTE 



output processing for a job scheduling cycle. 



RESET THE CHAf?ACTER COUNT FOR SCHEDULING CALL 

IS JOB SCHEDULER CYCLE NEEDED? 

BR IF NOT 

SEE IF WE HAVE BEEN ABORTED 

GET JOB'S CURRENT EXECUTION STATE 

REQUEUE JOB AND CALL JOB SCHEDULER 

SEE IF WE WERE ABORTED WHILE ASLEEP 

TIME TO CHECK FOR SCHEDULER CYCLE? 

BR IF YES 

GET WORD WITH NEXT 2 BYTES OF STRING 

GET NEXT BYTE OF STRING 

BR IF NULL AT END OF STRING HIT 

IS CHAR #200? 

IF YES THEN END STRING WITHOUT CRLF 

SEND CHAR TO TERMINAL 

GET WORD WITH CHAR IN HIGH-ORDER BYTE 

CLEAR LOW-ORDER BYTE 

MOVE HIGH-ORDER BYTE TO LOW-ORDER 

BR IF NULL AT END OF STRING HIT 

IS THIS 200 AT END OF STRING? 

BR IF YES 

SEND CHAR TO TERMINAL 

GO SEND MORE CHARS 

CLEAN OFF STACK 

; CLEAN OFF STACK 
i PUT OUT CR-LF 
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58 002710 012601 

59 002712 012600 

60 002714 000207 



MOV 


<SP)+, Rl 


MOV 


<SP)+, RO 


RETURN 





i 

f 
I 
I 
I 
I 
I 

( 
i 
i 
« 

« 

i 

4 

< 
( 
( 



TSTTY 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 

11 002716 
12 
13 
14 
15 

16 002716 

17 002724 
IS 002726 
19 

20 
21 

22 002732 

23 002740 

24 002742 

25 002750 

26 002752 
27 

28 
29 

30 002756 

31 002762 

32 002770 

33 002772 
34 

35 
36 
37 

38 002776 

39 003004 

40 003006 

41 003012 
42 

43 

44 

45 003014 

46 

47 

48 

49 

50 003020 

51 003026 

52 003030 

53 003034 
54 

55 
56 
57 



032761 
001402 
000137 



032761 
001406 
032761 
001057 
004737 



042700 
032761 
001002 
042700 



OOOOOOG OOOOOOG 
003726 ' 



. SBTTL 

. SBTTL ## Program Level Output Character Processing »* 

. SBTTL PUTCHR — Send character to terminal 

i PUTCHR is called to queue a character to be sent to a terminal. 

i 

i Inputs: 

> RO = Character to be sent. 

i Rl = Virtual line number. 

PUTCHR: 

> 

; If line is in "high efficiency" mode, bypass a lot of normal 
i processing and use the high efficiency version of PUTCHR. 

BIT #*HITTY, LSW4<Rl)i Is this line in high efficiency mode? 

BEQ 1* ; Br if not 

JMP HIPUT i Use high efficiency version of PUTCHR 

j 
j Return immediately if the line has disconnected 



OOOOOOC 
OOOOOOG 
OOOOOOG 



177400 
OOOOOOG 

177600 



OOOOOOG 
OOOOOOG 



032761 
001403 
004737 
103436 



1«: BIT #<*DISCN!*CTRLC>, LSW(Rl) i Has job disconnected? 
BEQ 2* i Br if not 

BIT #*NOIN, LSW3(R1 ) ; Are we doing logoff processing now? 
BNE 9* J Br if yes — return immediately from PUTCHR 

CALL STOP ; Terminate execution of job and enter KMON 

i 

i Mask character to 7 or 8 bits depending on setting of EIGHTBIT option. 

2$: BIC #'^C<377>, RO iMask character to 8 bits 
OOOOOOG BIT #«SBIT/LSW2(R1) ils eightbit support option selected? 

BNE 8* J Br if yes 

BIC #-'-C<177>, RO iMask character to 7 bits 

i 

i See if we should suppress output from programs such as 

; EDIT> TECO. and DIBOL which try to echo characters themselves. 

BIT #*NaOUT, LSW3(Rl)i Is output echo suppression in effect? 
BEQ 3$ i Br if not 

CALL ESCHK » See if we should discard this character 

BCS 9* ; Br if we should discard this character 



OOOOOOG OOOOOOG 8*: 
004106' 



110061 OOOOOOG 



032761 
001403 
052700 
000415 



OOOOOOG OOOOOOG 
OOOOOOG 



> Remember the last character output to this line 

i 

3*: MOVB RO, LSNDCH(R1 ) i Remember last character sent to line 

f 

> If character is being sent in transparent mode, set transparent 
i flag for this character 

BIT #*TRNSP, LSW3<R1); Is line is transparency mode? 

BEQ 4* jBr if not 

BIS #TRNSFL, RO ; Set transparency flag for this character 

BR 5* 
> 

; Determine if this character is a leadin character or part of 
i a lead-in function sequence. 



< 
I 
f 

i 
< 
I 
I 

( 

i 
i 

€ 
C 

I 

« 

t 
I 
i 



TSTTY — TSX Tt 
PUTCHR — Send 

58 003036 

59 003042 

60 003044 

61 003050 

62 003052 

63 003056 

64 003060 

65 003066 
66 

67 
60 

69 003070 

70 003076 

71 003100 
72 

73 

74 

75 

76 003104 

77 

78 

79 

80 003110 
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005761 OOOOOOG 4*: 

001403 

004737 004304 ' 

000417 

120037 OOOOOOG 6*: 

001004 

012761 004340' OOOOOOG 

000410 



032737 OOOOOOG OOOOOOG 5«: 

001402 

004737 010776' 



; Are loe processing a lead-in function now? 
j Br if not 

i Process the lead-in function 
J Finished with character 
i Is this the lead-in character? 
i Br if not 
#GTCM1. LTSCMD<R1 ); Say we mre starting a lead-in function 

/Finished with character 

See if we should write this character to the terminal log file 

BIT #LF*OUT. LOGFLG ; Are we logging output characters? 

BEQ 7* >Br if not 

CALL LOOCHR J Log this character 



TST 


LTSCMD<R1) 


BEQ 


6* 


CALL 


LI FUN 


BR 


9* 


CMPB 


RO, VTSLCH 


BNE 


5* 


MOV 


#GTCM1,LTS 


BR 


9* 



We have done the highest level processing associated with 
PUTCHR. Now call PUTCHl to do the next level of processing. 



004737 003112' 



000207 



7$: CALL PUTCHl 

Finished 
9*: RETURN 



; Queue character for terminal 
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I 
f 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



. SBTTL PUTCHl — Queue character for terminal 



003111 



003112 032761 OOOOOOG OOOOOOG 
003120 001015 



003122 032761 OOOOOOG OOOOOOG 

003130 001403 

003132 005737 OOOOOOG 

003136 001006 



003140 032761 OOOOOOG OOOOOOG 1*: 
003146 001002 



PUTCHl is the second level of character queueing routines. 
Calling this routine rather than PUTCHR bypasses the following 
character processing operations: 

1. Stop the job if it is disconnected. 

2. Echo suppression. 

3. Transparent character flagging. 

4. TSX lead-in function processing. 

5. Terminal logging. 

Inputs; 
RO = Character to be queued for the terminal. 
Rl = Virtual line number of the terminal. 

PUTCHl: 

If this is a detached job, discard its output 

BIT #*DETCH, LSW<R1) ;Is this a detached job? 

BNE 9* i Br if yes — discard its output 

If we are in a command file and program output is being suppressed^ 
discard this character. 

BIT #*CFSOT, LSW4<R1 )i Should me suppress command file output? 

BEQ 1* i Br if not 

TST CFPNT ; Is input coming from a command file? 

BNE 9* ; Br if yes — discard this character 

If Control-0 has been typed, discard this character 

BIT #*CTRLO, LSW3<Rl)i Has ctrl-0 been typed? 

BNE 9* i Br if yes — discard this character 

We want to queue this character for the terminal. 
Call PUTCH2 to do the next level of processing 



003150 004737 003156' 



003154 000207 



CALL PUTCH2 
Finished 
9*: RETURN 



i Queue character for the terminal 



003156 010246 



TSTTY — TSX Terminal I/O routi 
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3 

4 

5 

6 

7 

S 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 

20 003160 032700 OOOOOOG 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

31 003174 

32 003176 

33 003200 

34 003204 
35 
36 
37 
38 

39 003206 

40 003212 

41 003214 
42 
43 
44 
45 
46 
47 
48 

49 003224 012602 

50 003226 000207 
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. SBTTL PUTCH2 — Queue character for a terminal 

PUTCH2 is the third level of character processing associated uiith 
PUTCHR. Calling PUTCH2 rather than PUTCHl bypasses the following 
character processing operations: 

1. Discarding output for detached jobs. 

2. Suppressing output uihile inside command file. 

3. Suppressing output if Control~0 typed. 

Inputs: 
RO = Character to be queued for the terminal. 
Rl = Virtual line index number. 



003160 
003164 



003166 
003172 



032700 
001015 



020027 
101005 



000037 



010002 
006302 
004772 
000407 



003230 ' 



120027 
00 1 402 
105261 



ooooooe 

OOOOOOG 



003220 004737 003516' 



PUTCH2: MOV 



R2, -<SP) 



If character is being sent in transparency mode> by pass 
keeping track of its position. 



BIT 
BNE 



#TRNSFL, RO 
2* 



i Is character in transparency mode?" 
j Br if yes 



Determine if this is a requiar or control character. 



3*: 



CMP 
BHI 



RO, #37 
1* 



ils this a control character? 

j Br if not 



This is a control character. 

Call appropriate routine to process it. 



MOV 


RO, R2 


ASL 


R2 


CALL 


@PC2VEC<R2) 


BR 


9* 



i Get character 

j Convert character to word table index 

iCall processing routine 

iFinished with character 



This is a regular character. 
Keep track of cursor position. 



1*: 



CMPB 


RO, #RUBOUT 


BEQ 


2* 


INCB 


LC0L<R1) 



ils this a rubout character? 

; Br if yes 

i Advance cursor column position 



Insert this character into the terminal buffer 
2*: CALL QUECHR i Insert character into terminal buffer 

Finished 



9*: 



MOV ( SP ) +, R2 
RETURN 
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1 

2 






3 






4 






5 






6 






7 






S 






9 






10 


003230 


003330 ' 


11 


003232 


003330' 


12 


003234 


003330 ' 


13 


003236 


003330 ' 


14 


003240 


003330 ' 


15 


003242 


003330 ' 


16 


003244 


003330 ' 


17 


003246 


003330 ' 


18 


003250 


003336' 


19 


003252 


003370 ' 


20 


003254 


003330 ' 


21 


003256 


003330' 


22 


003260 


003454' 


23 


003262 


003356 ' 


24 


003264 


003330' 


25 


003266 


003330 ' 


26 


003270 


003330 ' 


27 


003272 


003330 ' 


28 


003274 


003330 ' 


29 


003276 


003330 ' 


30 


003300 


003330 ' 


31 


003302 


003330' 


32 


003304 


003330 ' 


33 


003306 


003330' 


34 


003310 


003330 ' 


35 


003312 


003330 ' 


36 


003314 


003330 ' 


37 


003316 


003330 ' 


38 


003320 


003330 ' 


39 


003322 


003330 ' 


40 


003324 


003330 ' 


41 


003326 


003330 ' 



Vector of addresses of character processing routines for 
control characters encountered by PUTCH2. 

On entry to the processing routine* the following registers will 
be set up: 

RO = Character 

Rl = Virtual line number 



PC2VEC: 


. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCBS 




. WORD 


PCCHT 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCFF 




. WORD 


PCCCR 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 



00 


- NUL 


01 


- SOH 


02 


- STX 


03 


- ETX 


04 


- EOT 


05 


- ENQ 


06 


- ACK 


07 


- BEL 


10 


- BS 


11 


- HT 


12 


- LF 


13 


- VT 


14 


- FF 


15 


- CR 


16 


- SO 


17 


- SI 


20 


- DLE 


21 


~ DCl 


22 


- DC2 


23 


- DC3 


24 


- DC4 


25 


- NAK 


26 


- SYN 


27 


- ETB 


30 


- CAN 


31 


- EM 


32 


- SUB 


33 


- ESC 


34 


- FS 


35 


- GS 


36 


- RS 


37 


- US 



TSTTY — TSX Terminal I/O routi 
PUTCH2 — Queue character for a 



MACRO V05. 05 Wednesday 18-Jan~89 10:26 Page 16 
terminal 



1 
2 
3 
4 
5 
6 
7 

8 003330 

9 003334 
10 

11 
12 

13 003336 

14 003342 

15 003344 

16 003350 

17 003354 

le 

19 
20 

21 003356 

22 003362 

23 003366 
24 

25 
26 

27 003370 

28 003372 

29 003376 

30 003404 

31 003406 

32 003412 

33 003416 

34 003420 

35 003424 

36 003426 

37 003430 

38 003434 

39 003440 

40 003444 

41 003450 

42 003452 
43 

44 
45 

46 003454 

47 003462 

48 003464 

49 003466 

50 003472 

51 003476 

52 003502 

53 003504 

54 003506 

55 003510 

56 003514 



004737 
000207 



105361 
002002 
105061 
004737 
000207 



105061 
004737 
000207 



010246 
116102 
032761 
001011 
1 1 2700 
004737 
005202 
032702 
001372 
000406 
004737 
062702 
042702 
110261 
012602 
000207 



032761 
001012 
010246 
012702 
112700 
004737 
077203 
012602 
000402 
004737 
000207 



003516' 



Processing routines for control characters sent to terminal through 
PUTCH2. 

Normal control character. 

Insert into terminal buffer but do not affect cursor position. 

iPut char into terminal buffer 



OOOOOOG 

OOOOOOG 
003516' 



PCCINS: 


CALL 
RETURN 


QUECHR 


i Back 


space — 


Backup c 


PCCBS: 


DECB 


LC0L<R1) 




BGE 


1* 




CLRB 


LC0L<R1) 


1*: 


CALL 
RETURN 


QUECHR 



iBackup cursor position 

; Br if didn't go past front of line 

> Don't allouj to go to left of line start 

i Queue the character 



Carriage return 



OOOOOOG 
003516' 



PCCCR: 



CLRB 
CALL 
RETURN 



LC0L<R1) 
QUECHR 



> Say cursor is at left margin 
J Queue the character 



Tab — Translate to spaces if tab simulation tuanted 
PCCHT: 



OOOOOOG 
OOOOOOG 

000040 
003516' 

000007 



003516' 
000010 
000007 
OOOOOOG 



OOOOOOG 



2*: 



1*: 



9*: 



MOV 

MOVB 

BIT 

BNE 

MOVB 

CALL 

INC 

BIT 

BNE 

BR 

CALL 

ADD 

BIC 

MOVB 

MOV 

RETURN 



R2, -<SP) 

LC0L(R1),R2 

#*TAB, LSW2<R1) 

1* 

#' . RO 

QUECHR 

R2 

#7, R2 

2* 

9* 

QUECHR 

#8. , R2 

#7, R2 

R2, LCOL(Rl) 

(SP)+, R2 



Get current column position 

Should u»e simulate tabs? 

Br if not 

Get space character 

Send a space 

Advance cursor position 

Are lue up to next tab stop? 

Loop if not 

; Send the tab character to the terminal 
i Bound up to next tab stop 

j Save new cursor position 



Form feed 



OOOOOOG OOOOOOG PCCFF: 



000010 

OOOOOOG 

003516' 



003516' 



1*; 



2*: 
9*: 



BIT 

BNE 

MOV 

MOV 

MOVB 

CALL 

SOB 

MOV 

BR 

CALL 

RETURN 



See if we should translate to spaces 

#*FORM, LSW2<R1 > /Should we simulate form-feeds? 

2* 

R2> -(SP) 

#8. , R2 

#LF> RO 

QUECHR 

R2, 1* 

(SP)+>R2 

9* 

QUECHR 



> Br if not 

i Put out S LF characters 

i Get line feed character 

i Send a 1 ine feed 

j Loop till all line feeds sent 



i Send FF character to terminal 



( 

I 
I 
i 
i 
I 
( 
I 
i 
i 

€ 
I 

€ 

I 

C 
i 
i 
i 

i 
i 



TSTTY ■ 
QUECHR 



TSX Terminal I/O routi MACRO V05. 05 Wednesday 18-Jan-S9 10:26 Page 17 
- Queue character for transmission 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

2S 



. SBTTL QUECHR 



Queue character for transmission 



003516 



003516 005761 0000000 

003522 001410 

003524 032761 OOOOOOG OOOOOOG 

003532 001004 

003534 

003542 103402 



003544 004737 003552' 



003550 000207 



QUECHR is called to queue a character for transmission. 

If the job has display windowing turned on* the character is passed 

to the window manager before being queued for transmission. 

Inputs: 
RO = Character to be queued. 
Rl = Virtual terminal number. 

QUECHR: 

See if display windowing is turned on for this line 

TST LWIND0<R1) ils job doing display windowing? 

BEQ 1* i Br if not 

BIT #*NOWIN. LSWll (Rl ); Are we suppressing windowing now? 

BNE 1* iBrifyes 

OCALL WINCHR ; Pass character to window manager 

BCS 9* i Br if we should not display this char 

Queue the character for transmission 
1$: CALL BUFCHR i Queue character for transmission 

Finished 
9$: RETURN 



TSTTY — 
BUFCHR - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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— Insert char or suspend if full 



SBTTL BUFCHR 



Insert char or suspend if full 



003552 010246 



003554 



003562 026127 OOOOOOG 000010 

003570 101016 

003572 105737 OOOOOOG 

003576 001404 



003600 005761 
003604 003010 
003606 000442 



OOOOOOG 



003610 004737 005730' 

003614 032761 OOOOOOG OOOOOOG 

003622 001754 

003624 000433 



BUFCHR is called to queue a character for a terminal. 

If there is adequate space in the terminal output buffer the character 
is inserted. If there is not adequate space the job is suspended 
until space becomes available in the output terminal buffer. 

Inputs: 
RO = Character to be queued. 
Rl = Virtual terminal number. 

BUFCHR: MOV R2, -(SP) 

Disable interrupts 
1*: DISABL ; *« Disable *# 

See if there is room in the output buffer for the character 

Is there plenty of free space in buffer? 

Br if yes 

Are me running at interrupt level? (echoing) 

Br if not at interrupt level 

Allow char echoing to use all of buffer 

Br if buffer not completely full 

Discard char if no space for echo 

Output buffer is full. 

Suspend job's execution and wait for buffer space to becom available. 

3*: CALL PCSPND ; Suspend execution of job *# Enable *» 

BIT #*CTRLO* LSW3<Rl>i Was Ctrl-0 typed while we were asleep? 

BEQ 1* i Br if not 

BR 9* ; Discard character if ctrl-0 typed 

There is room for the character in the output buffer 
Insert character into the buffer 



CMP 


L0TSPC<R1)>#S. 


BHI 


2* 


TSTB 


FRKPRI 


BEQ 


3* 


TST 


L0TSPC<R1) 


BGT 


2$ 


BR 


9* 



003626 005361 OOOOOOG 

003632 016102 OOOOOOG 

003636 

003652 110022 

003654 

003662 020261 OOOOOOG 

003666 103402 

003670 016102 OOOOOOG 

003674 010261 OOOOOOG 



2$: 



4*: 



DEC 


LOTSPC(Rl) 


MOV 


L0TNXT<R1).R2 


TTMAP 




MDVB 


RO, <R2) + 


UNMAP 




CMP 


R2, LOTEND(Rl) 


BLO 


4* 


MOV 


L0TBUF(R1),R2 


MOV 


R2, L0TNXT<R1) 



Decrease free space count for buffer 

Get pointer to next free cell in buffer 

Map kernel PAR 6 to TT buffer 

Move character into TT buffer 

Remap kernel PAR 6 to job context block 

Did we move beyond end of buffer? 

Br if not 

Wrap around to front of buffer 

Save next-character pointer 



Start transmitter for this line 



003700 

003706 004777 

003712 000403 



003714 



OOOOOOG 



ENABL 

CALL 

BR 

Finished 

9*: ENABL 



©TRNSTR 
10$ 



; *«• Enab le ««• 

j Start transmitter for this line 



; *# Enable ** 



TSTTY — TSX Terminal I/O routi MACRO V05. 05 Wednesday ie~Jan-89 10:26 Page lS-1 
BUFCHR — Insert char or suspend if full 

58 003722 012602 10*: MOV (SP>+, R2 

59 003724 000207 RETURN 
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HIPUT — High efficiency PUTCHR 



c 
I 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

le 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



. SBTTL HIPUT 



High efficiency PUTCHR 



HIPUT — Routine to move a character to the terminal output buffer 
and print it in high efficiency mode. 



Inputs: 
RO == Character to be sent. 
Rl = Virtual line number of job. 



003726 

003726 010246 



003730 032761 

003736 001061 

003740 032761 

003746 001402 

003750 004737 



003754 005761 

003760 001404 
003762 

003770 103444 



003772 

004000 026127 OOOOOOG 000010 

004006 101003 

004010 004737 005730' 

004014 000766 



HIPUT: ; 



OOOOOOG OOOOOOG 
OOOOOOC OOOOOOG 
OOOOOOG 

OOOOOOG 



MOV R2, -(SP> 

If this is a detached job» discard its output 

BIT #*DETCH, LSW<R1) ;Is this a detached job? 

BNE 9* # Br if yes — discard its output 

BIT #<*DISCN+*CTRLC+*DETCH>, LSW<R1) i IS LINE DISCONNECTED? 

BEQ 1* ; BR IF NOT 

CALL STOP ; STOP JOB 

See if display windowing is turned on for this line 



1*: 



; Is job doing display windowing? 

; Br if not 

;Pass character to window manager 

; Br if we should not display this char 

See if there is room in the output buffer for this character 



TST 


LWIND0<R1) 


BEQ 


4* 


OCALL 


WINCHR 


BCS 


9* 



4*: 



DISABL 

CMP L0TSPC<R1),#8. 

BHI 2* 

CALL PCSPND 

BR 4* 



** DISABLE »* 

ENOUGH SPACE IN OUTPUT BUFFER? 

BR IF PLENTY OF SPACE 

SUSPEND PROGRAM TILL SPACE IS AVAILABLE 

NOW GO TRY AGAIN 



Insert character into output buffer 



OOOOOOG 
OOOOOOG 



OOOOOOG 



004016 005361 

004022 016102 

004026 

004042 110022 

004044 

004052 020261 

004056 103402 

004060 016102 OOOOOOG 

004064 010261 OOOOOOG 

004070 



004076 004777 OOOOOOG 



004102 012602 
004104 000207 



J*: 



3*: 



DEC 


L0TSPC<R1) i 


MOV 


L0TNXT<R1),R2 ; 


TTMAP 




MOVB 


RO, (R2)+ ; 


UNMAP 




CMP 


R2, LOTEND(Rl) ; 


BLO 


3* ; 


MOV 


L0TBUF(R1),R2 ; 


MOV 


R2, LOTNXT(Rl) i 


ENABL 





SAY LESS SPACE AVAILABLE IN BUFFER 
GET POINTER TO FREE CELL IN BUFFER 
MAP TO TT BUFFER AREA 
MOVE CHAR INTO TT BUFFER 

HAVE WE HIT THE END OF THE TT BUFFER? 

BR IF NOT 

WRAPAROUND TO FRONT OF BUFFER 

SAVE NEW BUFFER POINTER 

*# ENABLE ## 



Try to start transmission to line 

CALL ©TRNSTR i TRY TO START TRANSMISSION TO LINE 

Finished 

9*: MOV <SP)+, R2 
RETURN 



TSTTY 
ESCHK 
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- Check for echo suppression restart 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004106 



004106 000171 OOOOOOG 



004112 010046 

004114 020027 000141 

004120 103405 

004122 020027 000172 

004126 101002 

004130 162716 



004134 



2661 



000040 
OOOOOOG 



004140 001445 
004142 000453 



004144 120061 OOOOOOG 

004150 001441 

004152 120027 000136 

004156 001441 

004160 126127 OOOOOOG 000136 

004166 001432 

004170 000440 



004172 120027 OOOOOOG 

004176 001431 

004200 120027 OOOOOOG 

004204 001423 

004206 000431 



004210 120027 OOOOOOG 

004214 001417 

004216 120027 OOOOOOG 

004222 001417 

004224 000422 



. SBTTL ESCHK — Check for echo suppression restart 



ESCHK is called from PUTCHR to determine if echo suppression 
that is currently in effect should be terminated. 

Inputs: 
RO = Current character being output. 
Rl = Virtual line number. 

Outputs: 
C~flag set ==> Discard the character. 
RO = Character to output to terminal. 

ESCHK: 

Jump to appropriate restart routine based on echo suppression class 

JMP @LESRTN(R1) > Jump to echo suppression restart routine 

Restart after a normal character 

ESUAC: NOV RO. -(SP) ; PUSH CHARACTER BEING SENT 

IS IT A LOWER CASE LETTER? 
BR IF NOT 



1*: 



NOV 


RO. -(SP) i 


CNP 


RO. #141 i 


BLO 


1* i 


CMP 


RO. #172 


BHI 


1* 


SUB 


#40. (SP) J 


CMPB 


(SP)+, LESCHR(Rl); 


BEQ 


ESRS2 } 


BR 


ESRSl ; 



CONVERT LOWER-CASE TO UPPER-CASE 

IS CHAR BEING SENT SAME AS ECHO-SUPPRESSION CHAR-? 

IF YES THEN RESTART WITH NEXT CHAR 

IF NOT RESTART IMMEDIATELY 



Restart output after control type activation chars (ctrl-x etc. ) 

ESCTL: CMPB RO, LESCHR(R1 ) i CONTROL CHAR ECHOED BACK? 

IF YES RESTART WITH NEXT CHAR 

ECHO '"^-CHAR? 

IF YES WAIT FOR NEXT CHAR 

WAS PREVIOUS CHAR ■'^? 

IF YES. RESTART WITH NEXT CHAR 

RESTART WITH THIS CHAR 



CMPB 


RO, LESCHR(Rl) 


BEQ 


ESRS2 


CMPB 


RO. #''^ 


BEQ 


ESRTN 


CMPB 


LSNDCH(R1).#'-'^ 


BEQ 


ESRS2 


BR 


ESRSl 



Restart output after cr or If. 



ESCRLF: CMPB 
BEQ 
CMPB 
BEQ 
BR 



RO, #CR 
ESRTN 
RO, #LF 
ESRS2 
ESRSl 



i Restart aft 


er form feed 


ESFF: CMPB 


RO, #FF 


BEQ 


ESRS2 


CMPB 


RO, #LF 


BEQ 


ESRTN 


BR 


ESRSl 



IS THIS CHAR CR? 

YES — KEEP SKIPPING 

IS IT LF? 

YES — RESTART WITH NEXT CHAR. 

NOT CR OF LF. RESTART IMMEDIATELY 



ECHO FORM FEED CHAR? 

IF YES, RESTART WITH NEXT CHAR 

IGNORE A STRING OF LP'S 
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ESCHK — Check for echo suppression restart 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 



004226 120027 000044 
004232 001410 
004234 000416 



004236 120027 0000000 

004242 001404 

004244 120027 000040 

004250 001404 

004252 000407 



> Res 


tart aft 


er escape. 


ESESC: 


CMPB 


RO, #'$ 




BEQ 


ESRS2 




BR 


ESRSl 


; Res 


tart aft 


er tab. 



ESHT: 



CMPB 


RO, #TAB 


BEQ 


ESRS2 


CMPB 


RO, #' 


BEQ 


ESRTN 


BR 


ESRSl 



;0K TO ECHO * TOO. 

i RESTART IMMEDIATELY. 



ECHO TAB CHAR? 

IF YES, RESTART WITH NEXT CHAR 

IGNORE A STRING OF BLANKS 



004254 042761 

004262 110061 

004266 000261 

004270 000404 



004272 042761 
004300 000241 
004302 000207 



Set output restart with next character. 



0000000 OOOOOOG ESRS2: 
OOOOOOG ESRTN: 



BIC #*N00UT,LSW3(Rl)i RESTART OUTPUT WITH NEXT CHAR 

MOVB RO, LSNDCH(R1 > ; REMEMBER LAST CHAR SENT 
SEC i SAY TO DISCARD THIS CHARACTER 

BR ESXIT 



Restart output immediately with this character. 

OOOOOOG OOOOOOG ESRSl: BIC #*NOOUT, LSW3(R1 ) > SAY ECHO SUPPRESSION IS TURNED OFF 

CLC i Say to restart immediately 

ESXIT: RETURN 



TSTTY - 
LIFUN - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

H 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 
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004304 
004306 
004310 
004312 



004314 
004320 
004324 



004326 
004330 
004332 
004334 
004336 



010246 
010346 
010446 
010546 



016102 0000000 
005061 OOOOOOG 
004712 



012605 
012604 
012603 
012602 
000207 



004340 
004344 
004346 
004352 
004354 
004356 



00436J 



162700 
100406 
020027 
103003 
006300 
004770 



000207 



000101 



000032 



004364 ' 



. SBTTL LIFUN — Process lead-in function sequences 

LIFUN is called from PUTCHR to process TSX lead-in character sequences 

Inputs: 
RO = Current character 
Rl = Virtual line number 
LIFUN: MOV R2, -(SP) 
MOV R3, -<SP) 
MOV R4, -<SP) 
MOV R5, -(SP) 

Enter correct processing routine 

# Get address of correct processing routine 
j Say no processing routine pending now 
i Enter processing routine 



MOV 


LTSCMD<R1),R2 


CLR 


LTSCMD<R1) 


CALL 


(R2) 


Finished 




MOV 


<SP)+, R5 


MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


RETURN 





Get letter after leadin character and identify command. 



GTCMl: 



SUB 


#'A, RO 


BMI 


9* 


CMP 


RO, #MAXCC 


BHIS 


9* 


ASL 


RO 


CALL 


@CCVECT<RO) 



CONVERT LETTER TO TABLE INDEX 

BR IF NOT LEGAL COMMAND 

SEE IF IN LEGAL RANGE 

BR IF TOO BIG 

MAKE INTO WORD TABLE INDEX 

ENTER PROCESSING ROUTINE 



Finished 
9$: RETURN 



i 
f 
I 
I 

< 
i 

i 
I 
I 

c 

< 

€ 

4 

i 
i 

I 

i 

i 



TSTTY -- 


TSX Terminal 1/ 


LI FUN - 
1 


- Process lead-] 


2 
3 
4 


004364 


004450' 


5 


004366 


004466 ' 


6 


004370 


004476 ' 


7 


004372 


004506 ' 


8 


004374 


004736 ' 


9 


004376 


004746 ' 


10 


004400 


004756 ' 


11 


004402 


004760 ' 


12 


004404 


004770 ' 


13 


004406 


005020' 


14 


004410 


005030' 


15 


004412 


005040' 


16 


004414 


005056' 


17 


004416 


005066' 


18 


004420 


005106' 


19 


004422 


005126' 


20 


004424 


005236' 


21 


004426 


005412' 


22 


004430 


005450' 


23 


004432 


005460' 


24 


004434 


005470' 


25 


004436 


005500' 


26 


004440 


005670' 


27 


004442 


005700' 


28 


004444 


005710' 


29 


004446 


005720' 


30 




000032 



inal I/O routi MACRO V05. 05 
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Define TSX command control characters 



. WORD 


CMDA 


. WORD 


CMDB 


. WORD 


CMDC 


. WORD 


CMDD 


. WORD 


CMDE 


. WORD 


CMDF 


. WORD 


CMDG 


. WORD 


CMDH 


. WORD 


CMDI 


. WORD 


CMDJ 


. WORD 


CMDK 


. WORD 


CMDL 


. WORD 


CMDM 


. WORD 


CMDN 


. WORD 


CMDO 


. WORD 


CMDP 


. WORD 


CMDQ 


. WORD 


CMDR 


. WORD 


CMDS 


. WORD 


CMDT 


. WORD 


CMDU 


. WORD 


CMDV 


. WORD 


CMDW 


. WORD 


CMDX 


. WORD 


CMDY 


. WORD 


CMDZ 


= 


<. -CCVECT>/2 



SET RUBOUT FILLER CHARACTER 

ENABLE VT50 ESC -LETTER ACTIVATION 

DISABLE VT50 ESC-LETTER ACTIVATION 

DEFINE ACTIVATION CHARACTER 

TURN ON ECHO 

TURN OFF ECHO 

NOP 

DISABLE VIRTUAL LINES 

ENABLE LOWER CASE INPUT 

DISABLE LOWER CASE INPUT 

SET DEFERRED CHAR ECHO MODE 

SET IMMEDIATE CHAR ECHO MODE 

SET TRANSPARENCY MODE ON 

SUSPEND COMMAND FILE INPUT 

RESTART COMMAND FILE INPUT 

RESET USER ACTIVATION CHAR 

SET ACTIVATION ON FIELD WIDTH 

TURN ON HIGH-EFFICIENCY TTY MODE 

TURN ON SINGLE CHARACTER ACTIVATION MODE 

TURN OFF SINGLE CHARACTER ACTIVATION MODE 

ENABLE NON-WAIT TT INPUT 

SET FIELD WIDTH LIMIT 

TURN TAPE MODE ON 

TURN TAPE MODE OFF 

DISABLE AUTO LF ECHO 

ENABLE AUTO LF ECHO 

# COMMANDS 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 



Command - A 

The next char will be the rubout filler character. 



004450 012761 004460' OOOOOOG CMDA: 
004456 000207 



MOV #SETRBFiLTSCMD(Rl); SET NEXT PROCESSING ROUTINE 
RETURN 



THIS CHAR IS THE RUBOUT FILLER CHARACTER. 



004460 110061 OOOOOOG 
004464 000207 



SETRBF : MOVE RO, LRBF I L < R 1 ) 
RETURN 



i SET NEW RUBOUT FILLER CHARACTER 



Command - B 

Enable activation on vtSO escape-letter sequence. 



004466 052761 OOOOOOG OOOOOOG CMDB: 
004474 000207 



BIS #*VTESC,LSW5(R1); ENABLE THAT ACTIVATION SEQUENCE 
RETURN 



Command - C 

Disable activation on vt50 escape-letter sequence. 



004476 042761 OOOOOOG OOOOOOG CMDC; 
004504 000207 



BIC #*VTESC,LSW5<R1); DISABLE ACTIVATION CLASS 
RETURN 
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004506 
004514 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 004516 

11 004520 

12 004522 

13 004524 

14 004532 

15 004534 

16 004540 

17 004544 

18 004550 

19 004552 

20 004556 

21 004560 

22 004564 

23 004570 

24 004572 
25 

26 
27 
28 

29 004600 

30 004602 

31 004604 

32 004610 

33 004614 

34 004616 

35 004620 

36 004624 

37 004626 

38 004630 
39 

40 
41 
42 

43 004632 

44 004636 

45 004640 

46 004644 

47 004646 

48 004652 

49 004656 

50 004662 
51 

52 
53 
54 

55 004666 

56 004672 

57 004674 



012761 
000207 



010346 
010446 
010546 
032761 
001075 
004737 
016102 
020227 
103066 
066102 
110012 
005261 
120027 
001003 
052761 



005003 
010005 
016102 
020361 
103044 
010204 
004737 
005203 
120005 
001367 



032700 
001013 
052700 
010402 
004737 
005261 
005061 
005061 



Command - D 

Define additional activation character (uhich follows). 



004516' OOOOOOG CMDD: 



MOV #GTSPAC,LTSCMD(R1); SET PROCESSING ROUTINE 
RETURN 

activation character. 



OOOOOOG OOOOOOG 

005154' 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



i 

i This charac 


ter is a new activ 


> 

GTSPAC: MOV 


R3. -<SP) 


MOV 


R4, -(SP) 


MOV 


R5, -<SP) 


BIT 


#*DETCH. LSW<R1) 


BNE 


9* 


CALL 


DELUAC 


MOV 


LNSPAC<R1),R2 


CMP 


R2. #MXSPAC 


BHIS 


9* 


ADD 


LSPACT(R1),R2 


MOVB 


RO, (R2) 


INC 


LNSPAC<R1) 


CMPB 


RO, #CTRLC 


BNE 


1* 


BIS 


#*UCTLC,LSW4<R1) 



OOOOOOG 
OOOOOOG 



016420 



1*: 



2*: 



OOOOOOG 

OOOOOOG 

016562' 
OOOOOOG 
OOOOOOG 
OOOOOOG 



4*: 



Is this a detached job? 

Br if yes — Ignore function 

DEL CHAR IF ALREADY IN TABLE 

GET # OF CHARS DEFINED SO FAR 

DEFINED ALL ALLOWED? 

CAN'T HAVE ANY MORE 

POINT TO FREE SPOT IN TABLE 

STORE AWAY CHARACTER 

SAY 1 MORE CHAR IN TABLE 

IS CTRL-C A SPECIAL ACTIV CHAR? 

BRANCH IF NOT CTRL-C 

REMEMBER SPECIAL CTRL-C 

If user typed ahead any of the characters that are being declared 
to be an activation char^ mark them as activation chars. 

Count chars in R3 

Carry new activation char in R5 

Get pointer to next char in TT buffer 

Any more chars to check? 

Br if not 

Save current character pointer 

Fetch a char from TT input buffer 

Count characters that we check 

Is this the activation char? 

Loop if not 

We found the activation char in the type-ahead characters. 
Mark it as an activation character. 

Is char already marked for activation? 

Br if yes 

Set activation-character flag 

Get back pointer to character 

Insert character in buffer 

Say another pending activation char 

Clear field width activation 

Clear field width limit 

If the activation character is a carriage-return, check the following 
character and delete it if it is a line-feed. 



CLR 


R3 


MOV 


RO, R5 


MOV 


LINPNT(R1),R2 


CMP 


R3, LINCNT<R1) 


BHIS 


9* 


MOV 


R2, R4 


CALL 


FETCHR 


INC 


R3 


CMPB 


RO, R5 


BNE 


2* 



BIT 


# AC FLAG, RO 


BNE 


3* 


BIS 


# AC FLAG, RO 


MOV 


R4, R2 


CALL 


INSCHR 


INC 


LACTIV(Rl) 


CLR 


LAFSIZ<R1) 


CLR 


LFWLIM<R1) 



120027 
001346 
020361 



OOOOOOG 
OOOOOOG 



3*: 



CMPB RO, #CR 

BNE 2* 

CMP R3, LINCNT<R1) 



i Is activation character a carriage-return? 

i Br if not 

i Any chars left in buffer? 
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58 004700 

59 004702 

60 004704 

61 004710 

62 004714 

63 004716 

64 004720 

65 004724 
66 

67 
68 

69 004726 

70 004730 

71 004732 

72 004734 



103012 
010204 
004737 
120027 
001335 
010402 
004737 
000731 



012605 
012604 
012603 
000207 



016420' 
OOOOOOG 



016712' 



9*: 



BHIS 


9* 


MOV 


R2. R4 


CALL 


FETCHR 


CMPB 


RO, #LF 


ONE 


2* 


MOV 


R4, R2 


CALL 


DELCHR 


BR 


2* 


Finished 




MOV 


(SP)+,R5 


MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


RETURN 





; Br if not 

i Save position of possible line feed 

/Fetch character that follows CR 

j Is that character a line feed? 

i Br if not 

i Get back pointer to line feed 

jDelete the line feed 



TSTTY — 
LIFUN - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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004736 
004744 



004746 
004754 



004756 000207 



004760 
004766 



004770 
004776 
005002 
005006 
005012 
005016 



005020 
005026 



005030 
005036 



005040 
005046 



052761 
000207 



052761 
106537 
052716 
011661 
106637 
000207 



042761 
000207 



042761 
042761 



Command - E 

Turn on character echoing. 



052761 0000000 0000000 CMDE: 
000207 



BIS #*ECHO, LSW2<R1) ; ENABLE ECHOING 
RETURN 



Command - F 

Turn off character echoing. 



042761 0000000 OOOOOOG CMDF: 
000207 



BIC #*ECHO, LSW2(R1) i DISABLE ECHOING 
RETURN 



Command - G 
CMDG: RETURN 



Command - H 

Disable virtual lines. 



OOOOOOG OOOOOOG CMDH: 



BIS #*N0VLN>LSW2<Rl)i DISABLE VIRTUAL LINES 
RETURN 



Command - I 

Enable lower case input. 



OOOOOOG OOOOOOG CMDI: 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



BIS 

MFPD 

BIS 

MOV 

MTPD 

RETURN 



#*LC,LSW2<R1) 
@#JSWLOC 
#LCBIT, <SP) 
<SP),LJSW<R1) 
@#JSWLOC 



;D0 "SET TTY LC" 

;GET USER'S JSW VALUE 

iSET LOWER-CASE ENABLE FLAG 

; SAVE JSW IN INTERNAL TABLE 

; STORE BACK INTO USER 'S AREA 



Command - U 

Disable lower case input. 



OOOOOOG OOOOOOG CMDJ: 



BIC #*LC,LSW2(R1) 
RETURN 



;D0 "SET TTY NOLO" 



Command - K 

Set deferred character echo mode. 



052761 OOOOOOG OOOOOOG CMDK: 
000207 



BIS #*DEFER.LSW2<R1);SET DEFERRED ECHO FLAG 
RETURN 



Command ~ L 

Set immediate mode char echo. 



OOOOOOG OOOOOOG CMDL: BIC 
OOOOOOC OOOOOOG BIC 



#*DEFER/ LSW2(R1 ) < Echo immediately from now on 
#<*DODFR!*GCECO>» LSW3<R1 ) i Say we are not now deferring 



i 

i 
I 
I 

I 
< 
( 

€ 
€ 

I 
( 
i 
€ 
i 
i 
i 
i 
C 
i 
4 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
S3 
84 
85 



005054 000207 



RETURN 



Command - M 

Set output transparency mode 



005056 052761 0000000 OOOOOOG CMDM: 
005064 000207 



005066 
005072 
005074 
005100 
005104 



013702 
001404 
010237 
004737 
000207 



OOOOOOG 

OOOOOOG 
010100' 



005106 
005112 
005114 
005120 
005124 



013700 
001404 
004737 
005037 
000207 



OOOOOOG 

010124' 
OOOOOOG 



BIS #*TRNSP,LSW3(Rl)i TURN ON TRANSPARENCY MODE 
RETURN 



Command - N 

Suspend input from a control file 



CMDN: 



1$: 



MOV 


CFPNT, R2 


BEQ 


1* 


MOV 


R2, CFSPND 


CALL 


CFSTOP 


RETURN 





IS A COMMAND FILE ACTIVE NOW? 

BR IF NOT 

SAVE POINTER 

Suspend command file input 



Command - 

Restart input from suspended command file 



CMDO: 



1*: 



MOV 


CFSPND, 


RO 


BEQ 


1* 




CALL 


CFSTRT 




CLR 


CFSPND 




RETURN 







; IS COMMAND FILE SUSPENDED? 

;BR IF NOT 

/Restart command file input 



TSTTY - 
LI FUN 

1 
2 
3 
4 
5 
6 
7 
8 
9 
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€ 
I 



005126 
005134 



10 005136 

11 005144 

12 005146 

13 005152 
14 

15 
16 
17 
18 

19 005154 

20 005156 

21 005160 

22 005164 

23 005166 

24 005172 

25 005174 

26 005176 
27 

28 005200 
29 

30 005202 

31 005206 

32 005210 

33 005214 

34 005220 

35 005222 

36 005230 

37 005232 

38 005234 



012761 
000207 



032761 
001002 
004737 
000207 



010246 
010346 
016102 
001421 
016103 
120023 
001402 
077203 

000413 

112363 
077203 
005361 
120027 
001003 
042761 
012603 
012602 
000207 



Command ~ P 

Reset user specified activation char. 



005136' OOOOOOG CMDP: 



MOV 
RETURN 



#RSSPAC,LTSCMD(R1); SET PROCESSING ROUTINE 



THIS CHAR IS THE CHAR TO RESET. 



OOOOOOG OOOOOOG RSSPAC: 
005154' 



9*: 



BIT 
BNE 
CALL 
RETURN 



#*DETCH, LSW<R1) 

9* 

DELUAC 



Is this a detached job? 

Br if yes — Ignore function 

CALL SUBROUTINE TO DEL CHAR FROM TABLE 



OOOOOOG 
OOOOOOG 



177776 

OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



SUBROUTINE TO DELETE A USER-DEFINED ACTIVATION FROM THE TABLE 

OF ACTIVATION CHARACTERS. 

WHEN CALLED THE CHARACTER TO BE DELETED MUST BE IN RO. 



GET # OF USER ACTIVATION CHARS 

BR IF NONE TO RESET 

POINT TO START OF TABLE 

SEARCH FOR CHAR 

BR WHEN FOUND 

LOOP IF MORE TO CHECK 



MOVE BACK REST OF CHARS 

SAY ONE LESS CHAR TO ACTIVATE ON 

DE-ACTIVATING CTRL-C? 

BR IF NOT 

REMEMBER NO MORE CTRL-C 



DELUAC: 


MOV 


R2, -(SP) 






MOV 


R3, -(SP) 






MOV 


LNSPAC(R1),R2 






BEQ 


3* 






MOV 


LSPACT(R1),R3 


2*: 




CMPB 


RO, (R3)+ 






BEQ 


1* 






SOB 


R2, 2* 


/ 


COULDN'T FIND CHAR 






BR 


3* 


t 


FOUND CHAR 




1$: 




MOVB 


(R3)+, -2(R3) 






SOB 


R2, 1* 






DEC 


LNSPAC<R1) 






CMPB 


RO, #CTRLC 






BNE 


3* 






BIC 


#*UCTLC,LSW4(R1) 


3*: 




MOV 


(SP)+, R3 






MOV 


(SP)+, R2 






RETURN 
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€ 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



005236 
005244 



005246 
005250 
005252 
005254 
005262 
005264 
005266 
005272 
005274 
005300 
005302 
005306 



005310 
005312 
005314 
005320 



005322 
005326 
005330 
005334 
005336 
005342 
005344 
005346 
005352 
005354 
005360 
005364 
005370 
005374 



012761 
000207 



010246 
010346 
010446 
032761 
001047 
010003 
004737 
103043 
004737 
103436 
005761 
001035 



005703 
001431 
020361 
101026 



016102 
010204 
004737 
103422 
032700 
001017 
077310 
052700 
010402 
004737 
005261 
005061 
005061 



Command - Q 

Set field width as an activation condition 



005246' 0000000 CMDQ: 



MOV #SFWAC, LTSCMD<Rl)i SET PROCESSING ROUTINE 
RETURN 



Interpret this char as value of field 



width 



SFWAC : 



0000000 0000000 

010030' 
017362' 
0000000 



0000000 



OOOOOOG 
016420' 
OOOOOOG 

OOOOOOG 

016562' 
OOOOOOG 
OOOOOOG 
OOOOOOG 



005376 010061 OOOOOOG 



005402 012604 



MOV 


R2, -<SP) 




MOV 


R3, -(SP) 




MOV 


R4, -(SP) 




BIT 


#*DETCH, LSW<R1) 


Is 


BNE 


9* 


Br 


MOV 


RO, R3 


CA 


CALL 


CFTEST 


IN 


BCC 


9* 


BR 


CALL 


SLCHK 


IS 


BCS 


1* 


BR 


TST 


LACTIV(Rl) 


IS 


BNE 


9« 


IF 



this a detached job? 

if yes — Ignore function 
{RY FIELD WIDTH IN R3 
'UT COMING FROM COMMAND FILE? 

IF YES 

SINGLE LINE EDITOR IN CONTROL? 

IF YES — SET VALUE AND LET SL HANDLE IT 

ACTIVATION CHAR PENDING NOW? 

YES THEN IGNORE FIELD WIDTH 



No activation chars are pending and input is not 

coming from a command file. 

See if he has typed ahead enough to cause activation 



TST R3 

BEQ 1* 

CMP R3, LINCNT(Rl) 

BHI 1* 



IS HE RESETTING FIELD WIDTH ACTIVATION? 

BR IF YES 

REACHED ACTIVATION ALREADY? 

BR IF NOT 



User has typed ahead enough to fill this field. 
Set activation flag in last char in field. 



3*: 



MOV 


LINPNT(R1)>R2 


MOV 


R2, R4 


CALL 


FETCHR 


BCS 


9* 


BIT 


#ACFLAG, RO 


BNE 


9* 


SOB 


R3, 3* 


BIS 


#ACFLAG, RO 


MOV 


R4, R2 


CALL 


INSCHR 


INC 


LACTIV(Rl) 


CLR 


LAFSIZ(Rl) 


CLR 


LFWLIM(Ri) 


BR 


9* 



POINT TO 1ST CHAR PENDING 

SAVE POINTER TO NEXT CHAR 

FETCH THE NEXT INPUT CHARACTER 

STRANGE — NO MORE CHARS TO GET 

IS THIS CHAR ALREADY FLAGGED FOR ACTIVATION? 

BR IF YES 

LOOP TILL WE GET LAST CHAR IN FIELD 

SET ACTIVATION-CHARACTER FLAG FOR CHAR 

GET BACK POINTER TO CHAR POS IN BUFFER 

REINSERT CHARACTER INTO BUFFER 

SAY ONE MORE PENDING ACTIVATION CHAR 

SAY FIELD WIDTH ACTIVATION NOT IN EFFECT 

SAY NO FIELD WIDTH LIMIT 



User has not typed ahead entire field. 
Remember field size as activation condition. 



1*: MOV 
Finished 



9*: 



MOV 



RO, LAFSIZ(Rl) 



(SP)+, R4 



; REMEMBER FIELD SIZE 



I 
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58 005404 012603 MOV (SP)+, R3 

59 005406 012602 MOV (SP)+, R2 

60 005410 000207 RETURN 



TSTTY — TSX Terminal I/O routi MACRO V05. 05 Wednesday 18-Jan-89 10:26 Page 28 
LIFUN — Process lead-in function sequences 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 



Command - R 

Turn on high-efficiency tty mode 



005412 
005420 
005422 
005426 



032761 
001002 
004737 
000207 



OOOOOOG OOOOOOG CMDR: 
005430 ' 



9«: 



BIT 
BNE 
CALL 
RETURN 



#*DETCH, LSWCRl) 

9* 

HION 



; Is this a detached job? 

; Br if yes — Ignore function 

; TURN ON HIGH-EFFICIENCY MODE 



005430 
005436 
005440 
005446 



032761 
001003 
052761 
000207 



; WHEN 

OOOOOOG OOOOOOG HION: 

OOOOOOG OOOOOOG 

1*: 



HION IS CALLED TO ENABLE HIGH-EFFICIENCY TTY MODE. 
IT IS CALLED FROM TSEMT AS WELL AS FROM TSEXEC. 
CALLED, THE LINE INDEX # MUST BE IN Rl. 



BIT 
BNE 
BIS 
RETURN 



#*DETCH, LSW<R1) i IS THIS A DETACHED JOB? 

1* iBR IF YES <CAN'T USE THIS MODE) 

#*H I TTY, LSW4<R1); ENABLE HIGH-EFFICIENCY MODE 



Command - S 

Turn on single character activation mode 



005450 052761 OOOOOOG OOOOOOG CMDS: 
005456 000207 



BIS #*CHACT, LSW5<R1);TURN ON SINGLE CHARACTER ACTIVATION 
RETURN 



Command - T 

Turn off single character activation mode 



005460 042761 OOOOOOG OOOOOOG CMDT: 
005466 000207 



BIC #*CHACT, LSW5(R1);TURN OFF SINGLE CHARACTER ACTIVATION 
RETURN 



Command - U 

Enable non-uiait TT input <. TTINR) 



005470 052761 OOOOOOG OOOOOOG CMDU: 
005476 000207 



BIS #*N0WTT,LSW5<Rl)i ENABLE NON-WAIT TT INPUT 
RETURN 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



005500 
005506 



005510 
005512 
005514 
005516 
005524 
005526 
005532 
005534 
005536 
005542 
005544 
005550 



005552 
005554 
005560 
005564 
005566 
005570 
005574 
005600 
005602 
005606 
005610 
005614 
005616 
005624 
005626 
005630 
005632 



005634 
005636 
005642 

005644 
005650 



010346 
010446 
010546 
032761 
001055 
005061 
010004 
001451 
004737 
103046 
004737 
103441 



005003 
016102 
020361 
103033 
010205 
004737 
120027 
001427 
032700 
001024 
120027 
001004 
032761 
001015 
005203 
020304 
101752 



010502 
004737 
103375 

012700 
004737 



Command ~ V 

Set field width limit. 



012761 005510' 0000000 CMDV: 
000207 



MOV #SFWL, LTSCMD<Rl)i NEXT CHAR WILL BE FIELD WIDTH SIZE 
RETURN 



This character specifies the field size 



0000000 OOOOOOG 
OOOOOOG 



010030' 



017362 



MOV 


R3, -<SP) 




MOV 


R4, -<SP) 




MOV 


R5, -<SP) 




BIT 


#*DETCH>LSW(R1) 


; Is 


BNE 


9* 


iBr 


CLR 


LFWLIM<R1) 


} In 


MOV 


RO, R4 


J IS 


BEQ 


9* 


i Br 


CALL 


CFTEST 


; IS 


BCC 


9* 


iBR 


CALL 


SLCHK 


; IS 


BCS 


6* 


;BR 



0000000 
OOOOOOG 



016420' 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 



SFWL: 



this a detached job? 
if yes — Ignore function 
Initially clear field width 

SPECIFIED FIELD WIDTH ZERO? 
if yes 
1*: CALL CFTEST ■> IS INPUT COMING FROM A COMMAND FILE? 

IF YES 

SINGLE LINE EDITOR RUNNING? 
IF YES 

See if user typed ahead. 

Check size of field and discard any chars beyond end of specified size. 

COUNT TOTAL CHARACTERS IN R3 

GET POINTER TO NEXT CHAR IN BUFFER 

HAVE WE CHECKED ALL CHARS IN TT BUFFER? 

BR IF YES ~ NO OVERFLOW HAS OCCURRED YET 

SAVE POINTER TO NEXT CHAR 

GET NEXT CHAR FROM TT INPUT BUFFER 

IS THIS CHAR CARRIAGE-RETURN? 

BR IF YES — THIS ENDS THE FIELD 

IS THIS CHAR AN ACTIVATION CHAR? 

BR IF YES ™ FIELD TERMINATED WITHOUT OVRFLOW 

IS THIS CHAR PART OF VTIOO ESCAPE SEQ? 

BR IF NOT 

ARE WE ACTIVATING ON VTIOO ESC SEQUENCES? 

BR IF YES — FIELD WIDTH OK 

COUNT TOTAL # CHARS IN FIELD 

DOES THIS CHAR OVERFLOW THE FIELD? 

BR IF NOT 

Field overflow. Discard all chars typed beyond end of field. 



14«: 


CLR 


R3 




MOV 


LINPNT<R1), R2 


5«: 


CMP 


R3, LINCNT(Rl) 




BHIS 


6$ 




MOV 


R2, R5 




CALL 


FETCHR 




CMPB 


RO, #CR 




BEQ 


9* 




BIT 


#ACFLAG. RO 




BNE 


9* 




CMPB 


RO. #ESCFLG 




BNE 


2* 




BIT 


#*VTESC,LSW5(R1) 




BNE 


9* 


2*: 


INC 


R3 




CMP 


R3, R4 




BLOS 


5* 



016712' 



OOOOOOG 
003516' 



MOV R5/ R2 
10*: CALL DELCHR 

BCC 10* 
; Ring bell to signal user that field overflowed. 

MOV #BELL, RO i GET BELL CHARACTER 

CALL QUECHR > END TO TERMINAL 



POINT TO CHAR THAT OVERFLOWED FIELD 
DELETE ALL CHARS THAT ARE BEYOND FIELD END 
LOOP IF MORE CHARS TO DELETE 



005654 010461 OOOOOOG 



; Field did not overflow 

i 

6*: MOV R4, LFWLIM<R1) 

> 

i Finished 



iSET FIELD WIDTH LIMIT FOR THIS FIELD 
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58 ; 

59 005660 012605 9*: 

60 005662 012604 

61 005664 012603 

62 005666 000207 



MOV 


<SP)+, R5 


MOV 


(SP)+, R4 


MOV 


<SP)+, R3 


RETURN 
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i 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 



Command - W 

Turn "paper-tape" mode on. 



005670 052761 OOOOOOG OOOOOOG CMDW: 
005676 000207 



BIS #*TAPE, LSW2<R1) i TURN TAPE MODE ON 
RETURN 



Command - X 

Turn "paper-tape" mode off. 



005700 042761 OOOOOOG OOOOOOG CMDX: 
005706 000207 



BIC #*TAPE, LSW2(Ri) ; TURN TAPE MODE OFF 
RETURN 



Command - Y 

Disable echoing of line-feed following carriage-return 



005710 052761 OOOOOOG OOOOOOG CMDY: 
005716 000207 



BIS #*NOLF. LSW6<R1) ; DISABLE AUTO LINE-FEED ECHO 
RETURN 



Command ~ Z 

Enable echoing of line-feed following carriage-return 



005720 042761 OOOOOOG OOOOOOG CMDZ; 
005726 000207 



BIC #*NOLF, LSW6<R1) ; REENABLE AUTO LINE-FEED ECHO 
RETURN 
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I 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 



005730 
005732 
005736 
005742 
005746 
005752 
005754 



005756 
005764 
005770 
005772 
005776 



010046 
004737 
012700 
004737 
004737 
012600 
000207 



017574' 
OOOOOOG 
OOOOOOG 
OOOOOOG 



005761 OOOOOOG 

001402 

004737 003516' 

000207 



PCSPND is called to suspend execution of the current job because 
the terminal output buffer is full. 



Inputs: 
Rl = Job 



index number. 



Outputs: 
All registers ara preserved. 



PCSPND: 


MOV 


RO, -<SP) 




CALL 


SIGWAT 




MOV 


#S*OTWT, RO 




CALL 


QHDSPN 




CALL 


CHKABT 




MOV 


(SP>+, RO 




RETURN 





SIGNAL JOB WAIT 

CHANGE JOB STATE TO WAITING-FOR -OUTPUT-SPACE 

CHANGE STATE AND SUSPEND THE JOB 

SEE IF WE WERE ABORTED WHILE ASLEEP 



TRYCHR is similar to PUTCHR except if the user's 

output buffer is full TRYCHR simply returns 

and does not halt execution. 

TRYCHR also does not give special treatment to 

such chars as form feed* backspace* etc. 

when called rO must contain the character to be 

sent and rl must contain the virtual line index #. 

all registers are preserved. 



** DISABLE ** 

IS THERE ROOM FOR THE CHAR? 

BR IF NOT 

PUT CHARACTER INTO BUFFER 



TRYCHR: 


DISABL 






TST 


L0TSPC<R1) 




BEQ 


9* 




CALL 


QUECHR 


9*: 


RETURN 
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2 i OTREGO IS CALLED TO RESTART A USER WHO IS SUSPENDED 

3 > WAITING FOR SPACE IN THE OUTPUT BUFFER. 

4 ■' WHEN CALLED THE USER NUMBER MUST BE IN Rl. 

5 ■' 

6 006000 012700 OOOOOOG OTREGO: MOV #S«OTFN, RO i PUT USER IN OUTPUT-NEEDED QUEUE 

7 006004 004737 OOOOOOG CALL ENQTL 

8 006010 000207 RETURN 
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1 

2 
3 
4 
5 
6 
7 
8 
9 

10 006012 

11 006014 

12 006016 

13 006022 

14 006030 

15 006036 

16 006040 
17 

18 
19 
20 
21 



. SBTTL 

. SBTTL «» Program Level Input Character Processing *» 

. SBTTL GETCHR — Get next input char 

GETCHR — ROUTINE TO MOVE THE NEXT CHARACTER FROM THE 
INPUT DUFFER TO RO. 

IF NO CHARACTERS ARE AVAILABLE THE USER IS SUSPENDED 
UNTIL A RECORD IS RECEIVED. 



006044 
006050 
006052 



010146 
010246 
113701 
042761 
032761 
001402 
004737 



004737 
103402 
000137 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOC OOOOOOG 

OOOOOOG 



007332 ' 
006412' 



GETCHR: MOV 
MOV 
MOVB 
BIC 

GCHl: BIT 
BEQ 
CALL 



R 1 , - < SP ) 

R2, -(SP) 

CORUSR, Rl iGET USER'S INDEX # 

#*GCESC,LSW3<Rl>i WE'RE NOT PROCESSING VT50 ESC SEQUENCE 

#<*DISCN+*CTRLC>,LSW(Rl)i DISCONNECT OR CTRL-C? 

8* i BRANCH IF NEITHER 

STOP i STOP PROGRAM IF EITHER 



23 
24 
25 
26 

27 006056 

28 006064 

29 006066 

30 006074 
31 

32 
33 

34 006100 

35 006106 

36 006110 

37 006116 
38 

39 
40 

41 006122 

42 006130 

43 006132 

44 006140 

45 006142 

46 006150 

47 006152 

48 006160 

49 006162 

50 006170 

51 006172 

52 006200 

53 006202 

54 006210 
55 

56 
57 



See if input is coming from a command file or from the terminal. 

8*: CALL GTCFCH ; TRY TO GET A CHARACTER FROM A COMMAND FILE 

BR IF DID NOT GET ONE 
PROCESS CHAR FROM COMMAND FILE 

We did not get a character from a command file. 

If we are processing a logoff command file* finish the logoff now. 



GTCFCH 


15* 


GCCKES 



032761 
001405 
052761 
004737 



032761 
001405 
052761 
004737 



032761 
001031 
032761 
001425 
032761 
001021 
032761 
001015 
032761 
001004 
032761 
001405 



OOOOOOG OOOOOOG 15*: 

OOOOOOG OOOOOOG 
OOOOOOG 



BIT #*LOFCF, LSW9(R1 )i Are we processing a logoff command file? 

BEQ 13* J Br if not 

BIS #*DOOFF, LSW < R 1 ) i Force job logoff 

CALL STOP 



If this is a detached job* halt its execution if command file finished 



OOOOOOG OOOOOOG 13*: 

OOOOOOG OOOOOOG 
OOOOOOG 



BIT #*DETCH. LSW<R1) ; Is this a detached job? 

BEQ 16* iBr if not 

BIS #*DISCN, LSW(Rl) i Force job logoff 

CALL STOP ;Halt detached jobs that want terminal input 



See if we should get a character from the single line editor. 



OOOOOOC 
OOOOOOG 
OOOOOOC 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



16*: 



12*: 



000137 007044 



BIT 


#<SPCTTY!DISSLE> 


BNE 


11* 


BIT 


#*SLON, LSW7<R1) 


BEQ 


11* 


BIT 


#<*ODTMD.'*HITTY> 


BNE 


11* 


BIT 


#*VTESC,LSW5(R1) 


BNE 


11* 


BIT 


#*GTLIN, LSW4(R1) 


BNE 


12* 


BIT 


#*SLTTY, LSW7<R1) 


BEQ 


11* 


OCALL 


GTSLCH 


JMP 


GCEXIT 



Br if yes — don't use SL 

Is SL enabled for this line? 

Br if not 

LSW4<Rl)iAre we in ODT or high efficiency? 

Br if yes 

VTxxx activation enabled? 

Br if yes 

Is a . GTLIN being done? 

Br if yes 

Is SL enabled for TTY input? 

Br if not 

Get character from single line editor 

Exit from GETCHR 



Get character from the terminal. 



TSTTY — 


- TSX Terminal I/O routi 


MACRO V 


GETCHR - 


— Get next inpu 


t char 




58 


006214 


032761 


0000000 


OOOOOOG 


59 


006222 


001006 






60 


006224 


013761 


OOOOOOG 


OOOOOOG 


61 


006232 


013761 


OOOOOOG 


OOOOOOG 


62 


006240 


005761 


OOOOOOG 




63 


006244 


001003 






64 


006246 


004737 


011240' 




65 


006252 


000666 






66 


006254 


016102 


OOOOOOG 




67 


006260 


004737 


016712' 




68 


006264 


103661 






69 


006266 


005061 


OOOOOOG 




70 










71 










72 










73 


006272 


032761 


OOOOOOG 


OOOOOOG 


74 


006300 


001415 






75 


006302 


032761 


OOOOOOG 


OOOOOOG 


76 


006310 


001411 






77 


006312 


004737 


017522' 




78 


006316 


032700 


OOOOOOG 




79 


006322 


001402 






80 


006324 


000137 


006562 ' 




81 


006330 


000137 


006626 ' 




82 










83 










84 










85 


006334 


032761 


OOOOOOG 


OOOOOOG 


86 


006342 


001402 






87 










88 










89 










90 


006344 


000137 


007002 ' 




91 










92 










93 










94 










95 


006350 


032761 


OOOOOOG 


OOOOOOG 


96 


006356 


001402 






97 


006360 


000137 


006546 ' 




98 


006364 


120027 


OOOOOOG 




99 


006370 


001010 






100 


006372 


032761 


OOOOOOG 


OOOOOOG 


101 


006400 


001404 






102 


006402 


052761 


OOOOOOG 


OOOOOOG 


103 


006410 


000721 
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11*: 



14*: 



9*: 



BIT 

BNE 

MOV 

MOV 

TST 

BNE 

CALL 

BR 

MOV 

CALL 

BCS 

CLR 



#*NOINT* LSW7(R1 )i Does user want non-interactive execution? 

14* i Br if yes 

VINTIO, LHIPCT<Rl)i Reset interactive I/O 

VQUANl, LITIME<Rl)i Reset interactive CPU 



limit for job 
time limit 



LACTIV<R1) 

9* 

ILWAIT 

OCHl 

LINPNT(Rl). R2 

DELCHR 

GCHl 

LRTCHR<R1) 



Any activation chars pending? 

Branch if yes 

Wait for activation 

Go try again 

Get pointer to next char to get 

Get char and delete from input buffer 

Br if no more characters are available 

Say no read time-out pending 



See if ue are in single-charactei — activation mode. 

BIT #SPCTTY, LJSW<Rl)i DOES PROGRAM WANT SINGLE-CHAR INPUT? 

BEQ 6* i BR IF NOT 

BIT #*CHACT. LSW5<R1>; IS SINGLE-CHARACTER INPUT ENABLED? 

BEQ 6* i BR IF NOT 

CALL CVTLC i SET IF WE NEED TO CONVERT TO UPPER-CASE 

BIT #ACFLAG, RO ; IS THIS AN ACTIVATION CHARACTER? 

BEQ 10* ;BR IF NOT 

JMP GCCKDS 

10*: JMP GCCKCC 

See if uie are in high-efficiency mode. 

6*: BIT #*HITTY, LSW4<R1); ARE WE IN HIGH-EFFICIENCY MODE? 

BEQ 3* i BR IF NOT 



5*: 



We are in high-efficiency mode 



JMP 



GCEND 



; DO EXPRESS CHARACTER PROCESSING 



SEE IF THIS IS FLAG CHAR MEANING NEXT CHAR IS PART OF 

VT50 ESCAPE SEQUENCE. 

3*: BIT #*GCESC,LSW3<Rl)i IS THIS CHAR PART OF ESC SEQUENCE? 

BEQ 1* i BR IF NOT 

JMP GCCKAC iTAKE CHAR WITHOUT FURTHER CHECKING 

1*: CMPB RO, #ESCFLG ; IS THIS FLAG FOR NEXT CHAR IN ESC SEQ? 

BNE GCCKES ; BR IF NOT 

BIT #*VTESC,LSW5(Rl)i ARE WE ACTIVATING ON ESCAPE SEQUENCES? 

BEQ GCCKES ; BR IF NOT 

BIS #*GCESC,LSW3(Rl>i REMEMBER NEXT CHAR PART OF ESC SEQ 

BR 9* ; GO GET NEXT CHAR 



TSTTY ~ 


- TSX Terminal I 


/O routi MACRO V 


GETCHR - 
1 


— Get next inpu 


t char 


3 
4 
5 
6 
7 

a 

9 


006412 


004737 


017522' 


006416 


032761 


OOOOOOG OOOOOOG 


10 


006424 


001450 




11 


006426 


032761 


OOOOOOG OOOOOOG 


12 


006434 


001074 




13 








14 








15 








16 


006436 


010346 




17 


006440 


010002 




IS 


006442 


042702 


177400 


19 








20 


006446 


120227 


000037 


21 


006452 


101013 




22 








23 


006454 


012703 


000004 


24 


006460 


120263 


007056 ' 


25 


006464 


001402 




26 


006466 


005303 




27 


006470 


100373 




28 








29 


006472 


006303 




30 


006474 


016303 


007066 ' 


31 


006500 


000402 




32 








33 


006502 


012703 


004112' 


34 


006506 


010361 


OOOOOOG 


35 


006512 


120227 


000141 


36 


006516 


103405 




37 


006520 


120227 


000172 


38 


006524 


101002 




39 


006526 


162702 


000040 


40 


006532 


110261 


OOOOOOG 


41 


006536 


052761 


OOOOOOG OOOOOOG 


42 


006544 


012603 





Wednesday 18-Jan-S9 10:26 Page 34 



WE HAVE THE NEXT CHARACTER IN RO. 

SEE IF WE NEED TO TRANSLATE LOWER CASE CHARS TO UPPER CASE. 



GCCKES: CALL 



CVTLC 



; CONVERT LC TO UC IF NEEDED 



SEE IF WE NEED TO DO ECHO SUPPRESSION. 

BIT #SPCTTY, LJSW(Rl); IS ECHO SUPPRESSION NEEDED? 

BEQ GCCKAC i BRANCH IF NOT 

BIT #*CHACT, LSW5<Rl)i ARE WE IN SINGLE-CHAR-ACTIVATION MODE? 

BNE GCCKCC i BR IF YES 

BEGIN ECHO SUPPRESSION. 



SEE 



5*: 



FALL 



8$: 



THIS 



4*: 
6*: 



1*: 



MOV 
MOV 
BIC 
IF THIS 
CMPB 
BHI 
IS A 
MOV 
CMPB 
BEQ 
DEC 
BPL 

THROUGH 
ASL 
MOV 
BR 

IS NOT 
MOV 
MOV 
CMPB 
BLO 
CMPB 
BHI 
SUB 
MOVB 
BIS 
MOV 



R3, -<SP) 
RO, R2 

#177400, R2 
IS A REGULAR 
R2, #37 
4* 
CONTROL CHAR — 
#NESCTL, R3 
R2, SESCTL<R3) 
8* 



R3 
5* 

WITH R3==-l FOR 
R3 

SESRTN<R3),R3 
6* 
A CONTROL CHAR. 
#ESUAC, R3 
R3, LESRTN(Rl) 
R2, #141 
1* 

R2, #172 
1* 

#40, R2 

R2, LESCHR<R1) 
#*NOOUT, LSW3 ( R 1 ) ; TURN 
(SP)+, R3 



; GET THE CHAR 

i CLEAR ACTIVATION CHAR FLAG 
OR CONTROL CHARACTER 

; REGULAR OR CONTROL? 
; BRANCH IF REGULAR CHAR 
CHECK FOR SPECIAL CASES. 

;# OF SPECIAL CONTROL CHARS 
i IS THIS ONE? 
i BRANCH IF YES 
;TRY REST 



REGULAR CONTROL CHAR. 
iGET WORD TABLE INDEX 
iGET ROUTINE ADDRESS 



SET NORMAL HANDLER ROUTINE 
SET HANDLER ROUTINE FOR PUTCHR 
IS CHAR A LOWER-CASE LETTER? 
BR IF NOT 



CONVERT LOWER-CASE TO UPPER-CASE 
REMEMBER CHAR 

ON ECHO SUPPRESSION 



€ 
€ 

i 
i 
i 
I 
I 
I 



TSTTY ~ 
GETCHR — 

1 



TSX Terminal I/O routi 
Get next input char 
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i 
c 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 



006546 
006552 
006554 
006560 



006562 
006570 
006572 
006600 
006602 
006610 



006612 
006620 



006626 
006632 
006634 
006642 
006644 
006652 
006654 
006660 
006662 
006670 
006672 
006676 
006704 
006706 
006712 
006714 
006722 
006724 
006730 
006732 
006740 
006742 
006750 
006752 
006756 
006762 



004737 
103017 
032700 
001502 



010030' 
OOOOOOG 



; See 


if th 


is 


is an activ 


GCCKAC: 


CALL 




CFTEST 




BCC 




GCCKCE 




BIT 




#ACFLAG, RO 




BEQ 




GCCKDE 



INPUT FROM CONTROL FILE? 
BR IF YES 

IS THIS AN ACTIVATION CHAR? 
BRANCH IF NOT. 



This is an activation character. 

See if u)e need to start doing deferred echoing. 



032761 
001416 
032761 
001010 
052761 
000406 



032761 
001002 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



GCCKDS: BIT 
BEQ 
BIT 
BNE 
BIS 
BR 



#«D0DFR,LSW3<Rl>i IS ECHOING BEING DEFERRED? 

GCCKCC ; BRANCH IF NOT 

#*GCEC0, LSW3<R1>; HAVE WE ALREADY STARTED? 

GCEAC ; BRANCH IF YES 

#«GCEC0,LSW3<Rl)j BEGIN DEFERRED ECHOING WITH NEXT CHAR 

GCCKCC 



See if want to list the contents of a control file. 



OOOOOOG OOOOOOG 



GCCKCE: BIT 
BNE 



#*QUIET, LSW4<Rl)iLIST COMMAND FILE? 
GCCKCC ;BR IF NO LIST 



006622 004737 007100' 



; ECHO THE ACTIVATION CHAR NOW. 

i 

GCEAC: CALL GCECHO ; ECHO THE CHARACTER 

i 

■> See if character we got is control-c. 



120027 
001063 
032761 
001024 
032761 
001053 
005761 
001050 
032761 
001402 
000137 
032761 
001403 
004737 
103033 
032737 
001417 
004737 
103404 
032761 
001010 
032761 
001404 
004737 
004737 
004737 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 



006030 ' 
OOOOOOG 



OOOOOOG 5*: 



010030' 

OOOOOOG OOOOOOG 7* 

010030' 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 



010776' 
011046' 
OOOOOOG 



GCCKCC: CMPB 
BNE 
BIT 
BNE 
BIT 
BNE 
TST 
BNE 
BIT 
BEQ 
JMP 
BIT 
BEQ 
CALL 
BCC 
BIT 
BEQ 
CALL 
BCS 
BIT 
BNE 
BIT 
BEQ 
CALL 
CALL 
CALL 



6*: 



8*: 



RO, #CTRLC 

GCEND 

#*DBGMD, LSW6<R1> 

7* 

#*UCTLC,LSW4<R1) 

GCEND 

LSCCA<R1) 

GCEND 

#*SCCA, LSW5<Ri) 

5* 

GCHl 

#«CCLRN, LSW5<R1) 

7* 

CFTEST 

GCEND 

#LF*IN, LOGFLG 

8* 

CFTEST 

6* 

#*QUIET, LSW4(R1) 

8* 

#*ECH0>LSW2<R1) 

8* 

LOGCHR 

LOGCR 

STOP 



IS CHAR CTRL-C? 

BRANCH IF NOT 

IS A DEBUGGING PROGRAM IN CONTROL? 

BR IF YES 

IS CTRL-C A USER DEF ACTIV CHAR? 

BRANCH IF IT IS 

DID USER DO . sec A? 

BR IF YES 

Suppressing control-C aborts for program? 

Br if no 

If yes, throm away •''C* and get next char. 

IS CCL TRANSLATOR RUNNING? 

BR IF NOT 

IS INPUT COMING FROM A COMMAND FILE? 

BR IF YES 

Are we logging input characters? 

BR IF NOT 

IS INPUT COMING FROM A CONTROL FILE? 

BR IF NOT 

SHOULD WE DISPLAY CONTROL FILES? 

BR IF NOT 

ARE WE ECHOING CHARACTERS? 

DON'T LOG IF NOT ECHOING 

LOG THE CONTROL-C 

LOG CR-LF 

STOP PROGRAM EXECUTION 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 



006766 
006774 
006776 



007002 
007010 
007012 
007016 
007020 
007026 
007030 
007036 
007040 
007044 
007050 
007052 
007054 



THIS CHAR IS NOT AN ACTIVATION CHAR. 
SEE IF WE NEED TO DO DEFERRED ECHOING. 



032761 
001402 
004737 



032737 
001415 
004737 
103404 
032761 
001006 
032761 
001402 
004737 
042700 
012602 
012601 
000207 



OOOOOOG 
007100' 



OOOOOOG GCCKDE: BIT 

BEQ 
CALL 



#*GCECO, LSW3(R1);HAVE WE STARTED DEFERRED ECHOING? 
GCEND ; BRANCH IF NOT 

GCECHO iECHO THE CHARACTER 



See if we should write character to log file 



OOOOOOG OOOOOOG GCEND: 

010030' 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 1*: 



010776' 
177400 



BIT 
BEQ 
CALL 
BCS 
BIT 
BNE 
BIT 
BEQ 
CALL 
GCEXIT: BIC 
MOV 
MOV 
RETURN 



#LF*IN, LOGFLG 

GCEXIT 

CFTEST 

1* 

#*QUIET>LSW4(R1) 

GCEXIT 

#*ECHO, LSW2<R1) 

GCEXIT 

LOGCHR 

#•-^0377, RO 

(SP)+, R2 

(SP)+,R1 



Are we logging input characters? 

Br if not 

Is input coming from a control file? 

Br if not 

Should we log control file characters? 

Br if not 

Is echo suppression in effect? 

Do not log if not echoing 

Log the character 

Mask character to 8 bits 
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1 






2 






3 






4 






5 






6 






7 


007056 


OOOG 


S 


007057 


OOOG 


9 


007060 


OOOG 


10 


007061 


OOOG 


11 


007062 


OOOG 


12 




000004 


13 






14 






15 






16 






17 






18 






19 






20 






21 


007064 


004144' 


22 


007066 


004210' 


23 


007070 


004226 ' 


24 


007072 


004172' 


25 


007074 


004172' 


26 


007076 


004236 ' 



TABLE OF CONTROL CHARACTERS WHICH REQUIRE SPECIAL 
PROCESSING WITH REGARD TO ECHO SUPPRESSION. 

TABLE OF CONTROL CHARACTERS. 



SESCTL: 


. BYTE 


FF 


FORM FEED 




. BYTE 


ESC 


ESCAPE 




. BYTE 


LF 


LINE FEED 




. BYTE 


CR 


CARRIAGE RETURN 




. BYTE 


TAB 


TAB 


NESCTL 


~ 


. -SESCTL- 1 


# OF SPECIAL CHARS 



. EVEN 

PARALLEL TABLE OF ADDRESSES OF ROUTINES TO RESTART 

OUTPUT WHEN ECHO SUPPRESSION IS IN EFFECT FOR 

SPECIAL CONTROL CHAR. 

SESRTN TABLE MUST BE PARALLEL TO SESCTL TABLE. 

NOTE: (-1) TABLE ENTRY IS USED FOR REGULAR CONTROL CHARS. 



(-1) REGULAR CONTROL CHAR 

FORM FEED 

ESCAPE 

LINE FEED 

CARRIAGE RETURN 

TAB 



. WORD 


ESCTL 


: , WORD 


ESFF 


. WORD 


ESESC 


. WORD 


ESCRLF 


. WORD 


ESCRLF 


. WORD 


ESHT 
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1 
2 
3 
4 
5 
h 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



007100 
007104 
007106 
007114 
007116 
007124 
007126 
007130 
007132 
007134 



007140 
007144 
007146 
007154 
007156 
007164 
007166 



007170 
007174 
007176 
007202 
007204 
007206 

007210 
007214 
007216 
007222 
007224 
007230 

12 

007236 
007240 
007244 
007246 
007252 

007254 
007256 
007262 
007266 
007270 
007274 



004737 
103511 
032761 
001505 
032761 
001101 
010046 
010246 
010346 
042700 



120027 
001011 
032761 
001405 
032761 
001456 
000453 



016102 
001405 
016103 
120023 
001446 
077203 

120027 
101040 
120027 
001003 
112700 
000432 

120027 
001406 
120027 
001403 
120027 
001021 

1 1 0003 
112700 
004737 
110300 
052700 
004737 



GCECHO IS CALLED TO ECHO A CHARACTER AS IT IS PASSED 

TO THE USER IF WE ARE IN DEFERRED ECHO MODE. 

WHEN CALLED, THE CHARACTER TO BE ECHOED MUST BE IN 

RO AND THE USER INDEX NUMBER MUST BE IN Rl. 

ALL REGISTERS ARE PRESERVED. 



017322' 



OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



GCECHO: CALL 


SCACHK 


BCS 


99* 


BIT 


#*ECHO, LSW2<R1) 


BEQ 


99* 


BIT 


#*GCESC,LSW3<R1) 


BNE 


99* 


MOV 


RO, -<SP) 


MOV 


R2, -(SP) 


MOV 


R3, -(SP) 


BIC 


#ACFLAG, RO 



ARE WE IN SINGLE CHARACTER INPUT MODE? 

BR IF YES — DON'T ECHO CHARACTER 

IS CHAR ECHOING WANTED? 

RETURN IF NOT 

IS THIS CHAR PART OF ESC SEQUENCE? 

BR IF YES 



STRIP OFF ACTIVATION-CHAR FLAG 



See if we should echo line-feed characters 



CMPB 


RO, #LF 


BNE 


7* 


BIT 


#*NOLF, LSW6<R1) 


BEQ 


7* 


BIT 


#*DBGMD, LSW6(R1) 


BEQ 


2* 


BR 


5* 



IS THIS CHAR LINE-FEED? 

BR IF NOT 

IS LINE-FEED ECHO SUPPRESSION IN EFFECT? 

BR IF NOT 

IS A DEBUGGER RUNNING NOW? 

BR IF NOT (DON'T ECHO LF > 

ECHO LF 



SEE IF CHAR IS A USER DEFINED ACTIVATION CHAR. 



OOOOOOG 
OOOOOOG 



7*: 



3*: 



MOV LNSPAC(Rl). 

BEQ 1* 

MOV LSPACT(Rl). 

CMPB RO, (R3) + 

BEQ 2* 

SOB R2, 3* 



R2 i GET # OF USER DEF ACT IV CHARS 

BRANCH IF NONE 
R3 i POINT TO TABLE FOR USER 

SEE IF THIS IS ONE 

BRANCH IF IT IS 

LOOP IF MORE TO CHECK 



SEE IF CHARACTER IS ESCAPE. 



000037 

OOOOOOG 

000044 

OOOOOOG 
OOOOOOG 
OOOOOOG 



000136 
003112' 

000100 
003112' 



1*: CMPB 
BHI 
CMPB 
BNE 
MOVB 
BR 
; CHECK FOR 
4*: CMPB 
BEQ 
CMPB 
BEQ 
CMPB 
BNE 
; ECHO '^-CHAR 
6*: MOVB 
MOVB 
CALL 
MOVB 
BIS 
CALL 



RO, #37 
5* 

RO, #ESC 
4* 

#'*, RO 
5* 
SPECIAL CONTROL 
RO, #CTRLZ 
6* 

RO, #CTRLC 
6* 

RO, #CTRLX 
5* 
FOR SPECIAL 
RO, R3 
#136, RO 
PUTCHl 
R3, RO 
#100, RO 
PUTCHl 



REGULAR OR CONTROL CHAR? 

BRANCH IF REGULAR CHARACTER 

IS CHAR ESCAPE? 

BRANCH IF NOT 

OTHERWISE, ECHO * FOR ESCAPE 



CHARACTERS. 
CTRL-Z? 
BRANCH IF YES 
CTRL~C? 



i CTRL-X? 

i BRANCH IF NOT SPECIAL CONTROL CHAR 
CONTROL CHARS 

i SAVE CONTROL CHAR 
;ECHO ■'- 



GET CONTROL CHAR 
CONVERT TO PRINTING CHAR 
PRINT CHAR 



i 
f 
I 
f 

i 
i 
i 
I 
< 
c 
i 
i 

€ 

€ 

i 

i 
i 
4 
4 
< 
I 



TSTTY — TSX Terminal I/O routi MACRO 
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58 


007300 


112700 


OOOOOOG 


59 


007304 


004737 


003112' 


60 


007310 


112700 


OOOOOOG 


61 


007314 


000400 




62 








63 








64 








65 








66 


007316 


004737 


003112' 


67 








68 


007322 


012603 




69 


007324 


012602 




70 


007326 


012600 




71 


007330 


000207 





*5. 05 Wedneso 


ay 


18-Jan-99 10:2 


MOVE 




#CR, RO 


CALL 




PUTCHl 


MOVB 




#LF, RO 


BR 




5* 


i 

i THIS IS A 


REGULAR CHARACTER 


i ECHO CHAR 


IN 


RO. 


5$: CALL 




PUTCHl 


i RETURN 






2*: MOV 




(SP)+, R3 


MOV 




(SP)+, R2 


MOV 




(SP)+, RO 


99*: RETURN 
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ECHO CR 



ECHO THE CHARACTER 



( 

f 

• c 
I ( 

c 
i 

€ 

4 

( 

i 
i 
i 
i 
i 
i 



TSTTY — 
GTCFCH - 

1 
2 
3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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007332 004737 010030 
007336 103543 



007340 1 1 3700 0000000 

007344 001403 

007346 105037 OOOOOOG 

007352 000532 



007354 004737 007650 ' 

007360 103531 

007362 120027 000136 

007366 001124 



. SBTTL GTCFCH — Try to get char from command file 

GTCFCH is called to try to obtain a character from a command file. 

Inputs: 
Rl = Job index number. 

Outputs: 
C~flag cleared if a character is obtained from command file. 
RO = Character obtained. 

See if me are getting characters from a command file. 



GTCFCH: CALL 
BCS 



CFTEST 
13* 



i SEE IF INPUT IS COMING FROM A COMMAND FILE 

i BR IF NOT 



See if uje are holding a character 



MOVB 


CFHOLD, RO 


BEQ 


10* 


CLRB 


CFHOLD 


BR 


12* 



ARE WE HOLDING A CHARACTER? 
BR IF NOT 

SAY CHARACTER IS GONE 
TAKE SUCCESSFUL RETURN 

Input is coming from a command file. 

10*: CALL CFCHAR i GET CHAR FROM CONTROL FILE 

BR IF END OF COMMAND FILE HIT 
IS THIS A CONTROL CHAR? 
BRANCH IF NOT 

We found "^" character in command file. 

This means we may have to treat the next character as a control char. 



CALL 


CFCHAR 


BCS 


14* 


CMPB 


R0> tt'-^ 


BNE 


12* 



007370 004737 007650 
007374 103523 



007376 120027 000044 

007402 001003 

007404 012700 OOOOOOG 

007410 000513 



007412 120027 000136 
007416 001510 



007420 120027 000050 

007424 001007 

007426 052761 OOOOOOG OOOOOOG 

007434 042761 OOOOOOG OOOOOOG 

007442 000744 



CALL 
BCS 



CFCHAR 
14* 



is interpreted as escape 



CMPB 


RO, #'* 


BNE 


3* 


MOV 


#ESC,RO 


BR 


12* 



> GET NEXT CHAR 

;BR IF END OF COMMAND FILE HIT 



i TREAT ■'-* AS ESCAPE CHAR 



is interpreted as a single 



3*: 



CMPB 
BEQ 



RO, #''^ 
12* 



; ANOTHER "•'^"? 

; IF YES THEN RETURN "•'^" AS CHARACTER 



■< means stop listing control file 

CMPB RO, #'( iSTOP LISTING COMMAND? 

BNE 4* ; BR IF NOT 

BIS #*QUIET, LSW4(R1);SET NO LISTING FLAG 

BIC #*CFS0T,LSW4(R1); ALLOW PROGRAM OUTPUT TO PRINT 

BR 10* iQO GET NEXT CHAR FROM FILE 

■> means start listing control file 



f 
I 

i 

i 
( 
i 
i 
€ 
€ 

i 

€ 
€ 
i 

i 
i 

€ 
C 



TSTTY ~- 
GTCFCH - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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007444 
007450 
007452 
007460 



007462 
007466 
007470 
007476 



007500 

007504 
007506 
007514 



007516 
007522 
007524 
007532 



007534 
007540 
007542 
007546 



007550 
007554 
007556 
007564 
007570 



007572 
007576 
007600 
007604 
007606 
007612 
007614 
007620 
007622 
007626 



120027 
001004 
042761 
000735 



120027 
001004 
052761 
000726 



120027 
001004 
052761 
000717 



120027 
001004 
042761 
000677 



120027 
103414 
120027 
101011 



042700 
006300 
016037 
004737 
000671 



120027 
103414 
120027 
101406 
120027 
103406 
120027 
101003 
042700 
000404 



000051 

OOOOOOC OOOOOOG 



4$: CMPB RO, #') i START-LISTING COMMAND? 

BNE 7* i BR IF NOT 

BIC #<«QUIET!*CFS0T>,LSW4(R1); START LISTING FILE 

BR 10* ; GO GET NEXT CHAR 



•'■• ! means suppress all output 



command file and program 



000041 

OOOOOOC OOOOOOG 



000076 

OOOOOOG OOOOOOG 



000074 

OOOOOOG OOOOOOG 



000061 
000060G 



7*: CMPB RO, #'! i SUPPRESS OUTPUT? 

BNE 5* -BR IF NOT 

BIS #<*CFS0T!«QUIET>,LSW4(R1); BEGIN SUPPRESSING OUTPUT 

BR 10* 

■''> means accept all chars from ©file 

5*: CMPB RO, #'> ; ACCEPT ALL CHARS? 

BNE 6* ; BR IF NOT 

BIS #*CFALL,LSW4(Rl)i SET FLAG 

BR 10* 

means accept only .gtlin chars from ©file 

6*: CMPB RO, #'<: j ACCEPT ONLY .GTLIN CHARS? 

BNE 2* i BR IF NOT 

BIC #*CFALL, LSW4<Rl)i RESET FLAG 

BR GTCFCH 

> 

i •''digit is used to indicate a parameter substitution 

•''DIGIT MEANS SUBSTITUTE PAR AM 
BR IF NOT PAR AM 
IN VALID RANGE? 
BR IF NOT 



2*: 



CMPB 


RO,#'l 


BLO 


1* 


CMPB 


RO, #<60-+MXCPRM:: 


BHI 


1* 



177760 

177776G 
OOOOOOG 



OOOOOOG 



000101 
000132 
000141 
000172 
177740 



1*: 



Switch input to a parameter string 

BIC #177760, RO i LEAVE VALUE ONLY 

ASL RO i CONVERT TO WORD TABLE INDEX 

MOV <PRMPNT-2><R0>,CURPRM i SET CHAR STRING POINTER 

CALL CHKABT ; ALLOW ABORTS WHILE GETTING PARAMETERS 

BR 10* ;G0 GET 1ST CHAR FROM STRING 

•''letter causes the letter to be converted to a control character 

J IS THIS A LETTER? 
; BR IF NOT 

BR IF UPPER-CASE LETTER 

SEE IF THIS IS A LOWER-CASE LETTER 

BR IF NOT 

BR IF NOT LETTER 
16*: BIC #177740, RO i CONVERT ALPHA TO CONTROL CHAR 

RETURN CONTROL CHARACTER AS CHARACTER GOTTEN 

•" was followed by something we don't recognize. 
Just return the •"■ as the character gotten. 



CMPB 


RO, #'A 


BLO 


15* 


CMPB 


RO,#'Z 


BLOS 


16* 


CMPB 


RO, #141 


BLO 


15* 


CMPB 


RO, #172 


BHI 


15* 


BIC 


#177740, RO 


BR 


12* 
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115 ■> 

116 007630 110037 OOOOOOG 15*: MOVE RO, CFHOLD i "PUSH" THE NEXT CHARACTER 

117 007634 112700 000136 MOVE tt'-^, RO ; RETURN "-'-" AS THIS CHARACTER 

lis 

119 
120 

121 007640 000241 12$: CLC i INDICATE SUCCESSFUL RETURN 

122 007642 000401 

123 007644 000261 14*: SEC > INDICATE UNSUCCESSFUL RETURN 

124 007646 000207 



15*: MOVE 


RO, CFHOLD 


MOVE 


#'•"•. RO 


> Finished 




12$: CLC 




BR 


13* 


14*: SEC 




13*: RETURN 





I 



TSTTY - 


- TSX Terminal I/O routi 


CFCHAR - 


— Do command fi 


le I/O 


1 

2 








3 








4 








5 








6 








7 








8 








9 








10 








U 








12 








13 








14 








15 


007650 


010246 




16 


007652 


013702 


0000000 


17 


007656 


001407 




18 








19 








20 








21 


007660 


112200 




22 


007662 


001403 




23 


007664 


010237 


0000000 


24 


007670 


000452 




25 








26 








27 


007672 


005037 


OOOOOOG 


28 








29 








30 








31 


007676 


013702 


OOOOOOG 


32 


007702 


020227 


OOOOOOG 


33 


007706 


103437 




34 








35 


007710 


1 1 3746 


000052 


36 


007714 


005237 


OOOOOOG 


37 


007720 






38 


007760 


112637 


000052 


39 


007764 


103006 




40 








41 








42 








43 








44 


007766 


004737 


010152' 


45 


007772 


005737 


OOOOOOG 


46 


007776 


001337 




47 


010000 


000410 




48 








49 


010002 


012702 


OOOOOOG 


50 


010006 


112200 




51 


010010 


001734 




52 


010012 


010237 


OOOOOOG 


53 








54 


010016 


000241 




55 


010020 


000401 




56 








57 


010022 


000261 
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. SBTTL CFCHAR — Do command file I/O 



CFCHAR is the lowest level routine called to get a character from 
a command file. It does the actual I/O to read the command file 
and returns the next character from the buffer or from a parameter 
string if string substitution is being done. 

Inputs; 
Rl = Current job index number. 

Outputs: 
RO = Next character from command file. 
C-flag set on return if end of file hit. 



CFCHAR: MOV 
MOV 
BEQ 



R2, -<SP) 
CURPRM, R2 
5* 



i INPUT FROM PARAM STRING? 
; BR IF NOT 



MOVE 


(R2)+, RO 


BEQ 


6* 


MOV 


R2, CURPRM 


BR 


9* 



5f : 
4*: 



INPUT IS COMING FROM A PARAMETER STRING 

GET NEXT CHAR FROM STRING 
BR IF HIT END OF STRING 
UPDATE CHAR POINTER 
RETURN 

i HIT END OF PARAMETER STRING. 

i SWITCH INPUT BACK TO CONTROL FILE. 

6*: CLR CURPRM i CLEAR PARAM STRING POINTER 

GET CHARACTER FROM CONTROL FILE 

MOV CFPNT, R2 i GET POINTER INTO BUFFER 

CMP R2, ttCFEND i HIT END OF BUFFER? 

BLO 1* i BRANCH IF NOT 

REACHED END OF BUFFER — READ IN NEXT BLOCK. 

MOVB ©#52, -<SP> iSAVE I/O ERROR CODE 

INC CFBLK ; INC FILE BLOCK NUMBER 

. READW #CFARG, #CFCHAN, #CFBUF, #256. , CFBLK 

MOVB (SP)+, @#52 ; REPLACE ERROR CELL 

BCC 3* ; BR IF NOT AT END OF FILE 

End of file has been hit. 

Try to pop up to higher level file. 

TRY TO POP UP TO HIGHER LEVEL FILE 
WAS THERE A HIGHER LEVEL FILE? 
BR IF YES 



CALL 


CFPOP 


TST 


CFPNT 


BNE 


5* 


BR 


11* 



i GET NEXT CHAR FROM BUFFER 
3*: MOV #CFBUF, R2 
1*: MOVB (R2)+, RO 

BEQ 4* 
8*: MOV R2, CFPNT 
; Successful return. 
9$: CLC 

BR 12* 
i Unsuccessful return. 
11*: SEC 



RESET BUFFER POINTER 
GET NEXT CHAR 
IGNORE NULLS 
SAVE NEW CHAR POINTER 



SIGNAL UNSUCCESSFUL RETURN 
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CFCHAR -~ Do command file I/O 

5e 010024 012602 12*: MOV <SP)+, R2 

59 010026 000207 RETURN 



TSTTY — TSX Terminal I/O routi MACRO V05. 05 
CFTEST — Determine if TT input is from file 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
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SBTTL CFTEST 



Determine if TT input is from file 



CFTEST IS CALLED TO DETERMINE IF TT INPUT IS COMING FROM 

A COMMAND FILE. 

IF YES, THE C-FLAG IS RESET ON RETURN. 

IF NO, THE C-FLAG IS SET ON RETURN. 

WHEN CALLED, Rl MUST CONTAIN THE USER INDEX NUMBER. 

ALL REGISTERS ARE PRESERVED. 



22 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



0030 
0034 
0036 
0040 
0046 
0050 
0056 
0060 
0066 
0070 
0072 
0074 
0076 



005737 
001417 
000404 
032761 
001012 
032761 
001004 
032761 
001402 
000241 
000207 
000261 
000207 



OOOOOOG 



CFTEST: TST 

BEQ 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG CFTSTl 

OOOOOOG OOOOOOG 

2*: 
CFTNO: 



BR 

BIT 

BNE 

BIT 

BNE 

BIT 

BEQ 

CLC 

RETURN 

SEC 

RETURN 



CFPNT i INPUT FROM COMMAND FILE? 

CFTNO i BR IF NOT 

CFTSTl ; NOP this br to disable debug cmd file input 

#*DBGMD, LSW6<R1) i IS DEBUGGER IN CONTROL? 

CFTNO ; BR IF SO - CAN'T DEBUG FROM CMD FILE! 

#*GTLIN, LSW4(R1>; IS THIS A . GTLIN INPUT EMT? 

2* ; BR IF YES 

#*CFALL, LSW4(Rl)iGET . TTYIN INPUT FROM ©FILE? 

CFTNO ; BR IF NOT 

i SAY INPUT COMING FROM FILE 

;SAY INPUT NOT COMING FROM FILE 



I 

c 
f 
i 
i 
i 
i 
€ 

€ 

i 
€ 
i 

i 
c 
i 
i 
i 
i 
i 



TSTTY — 
CFSTOP - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
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- Suspend command file input 



. SBTTL CFSTOP 



Suspend command file input 



010100 010046 



010102 005037 OOOOOOG 



010106 013700 0000000 

010112 042760 OOOOOOG OOOOOOG 



i Suspend command file input by setting CFPNT=0. 
; All registers are preserved. 

CFSTOP: MOV RO, -<SP> 

i Say input not coming from a command file 

i 

CLR CFPNT ; Suspend command file input 

i 

; Clear command-f i le~active status flag in RMON cell 



MOV 
BIC 

Finished 



CXTRMN, RO i Get virtual address of RMON in cxt blk 
ttCFACFL. R*CFST<RO) ; Say command file not active 



010120 012600 
000207 



010124 010046 



010126 010037 OOOOOOG 
010132 001405 



010134 013700 OOOOOOG 

010140 052760 OOOOOOG OOOOOOG 



010146 012600 
010150 000207 



MOV <SP)+, RO 
RETURN 

-SBTTL CFSTRT — Restart command file input 

Restart command file input by storing a non-zero value into CFPNT. 

Inputs: 
RO = Value to store into CFPNT 

CFSTRT: MOV RO, -<SP) 

Restart command file input 



MOV 
BEQ 



RO, CFPNT 
9* 



i Set command file buffer pointer 
i Br if not starting command file 



Set command-file-active flag in RMON status cell 



MOV 
BIS 

Finished 



CXTRMN, RO ;Get virtual address of RMON in cxt blk 
#CFACFL, R*CFST<RO) i Set command-file-active flags 



9*: MOV <SP)+, RO 
RETURN 



TSTTY - 
CFPOP - 

1 
2 
3 
4 
5 
6 
7 



- TSX Terminal I/O routi MACRO V05. 05 
- Pop up to next command file 
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01 

01 
01 

01 



01 
01 

8 01 

9 01 

10 01 

11 01 

12 01 

13 01 

14 01 

15 01 

16 01 

17 01 
IS 01 
19 
20 

21 
22 
23 
24 
25 
26 
27 
28 

29 01 

30 01 
31 

32 
33 

34 01 

35 01 

36 01 

37 01 

38 01 

39 01 

40 01 

41 01 

42 01 

43 01 

44 01 

45 01 

46 01 

47 01 

48 01 

49 01 

50 01 

51 01 

52 01 

53 01 

54 01 

55 01 
56 

57 



0152 
0154 
0156 
0160 
0162 
0166 
0172 
0200 
0204 
0206 
0212 
0216 
0224 



0230 
0236 
0240 
0246 



0254 
0260 



0262 
0266 
0274 
0302 
0304 
0312 
0320 
0322 
0330 
0336 
0340 
0346 
0352 
0356 
0360 
0364 
0372 
0374 
0402 
0410 
0414 
0416 



010146 
010346 
010446 
010546 
113746 
113701 
042761 
005737 
001002 
000137 
013705 
113765 
105037 



032761 
001406 



105737 
001060 



004737 
042761 
032761 
001006 
042761 
042761 
005000 
016060 
032761 
001403 
016060 
062700 
020027 
103761 
005037 
032761 
001572 
042761 
042761 
105737 
001561 
004737 



000052 
0000000 

0000000 OOOOOOG 
0000000 

010760' 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



042761 OOOOOOG OOOOOOG 



OOOOOOG 



010100' 

OOOOOOC OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

000002 

OOOOOOC 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



. SBTTL CFPOP — Pop up to next command file 

CFPOP is called to close the current command file and pop up to 
the next higher command file. 

CFPOP: MOV R1,-(SP) 

MOV R3, -(SP) 

MOV R4, ~(SP> 

MOV R5, -<SP) 

MOVE @#52, -<SP) J SAVE I/O ERROR CODE CELL 

MOVB CORUSR.Rl ; GET JOB INDEX NUMBER 

BIC #*CFCCL, LSW4(Rl)i SAY WE ARE NOT GETTING CHARS FROM CCL COMMAND 

TST CFPNT ; IS A COMMAND FILE IN USE NOW? 

BNE 11* J Br if yes 

JMP 9* 

11*: MOV CXTRMN, R5 i GET ADDRESS OF SIMULATED RMON DATA 

MOVB CFIND,R*INST<R5); RESTORE IND STATUS BYTE 

CLRB CFHOLD ; CLEAR ANY COMMAND FILE HOLDING CHAR 

Close currently open file 

BIT #*CFOPN. LSW4(R1 ); IS THE COMMAND FILE CHANNEL OPEN? 

BEG 1* i BR IF NOT 

. PURGE #CFCHAN i CLOSE CURRENT FILE 

BIC #*CFOPN, LSW4<R1);SAY COMMAND FILE CHANNEL IS NOW CLOSED 

See if there is a higher level command file to restore 



1*: 



TSTB 
BNE 



CFNEST 
2* 



iANY HIGHER LEVEL COMMAND FILES? 
; BR IF YES 



There are no higher level command files 



OOOOOOG 
OOOOOOG 

15*: 
OOOOOOG 10*: 
OOOOOOG 



12*: 



CALL 

BIC 

BIT 

BNE 

BIC 

BIC 

CLR 

MOV 

BIT 

BEQ 

MOV 

ADD 

CMP 

CLR 

BIT 

BEQ 

BIC 

BIC 

TSTB 

BEQ 

CALL 



CFSTOP iSay no 

#<*CFALL ! *CFSOT>, LSW4 < R 1 
#*LOFCF. LSW9<R1); Are we 
15* i If 50> 

#*NOIN, LSW3<R1) J ALLOW I 
#*SUCFi LSW9<R1) iSay we 
RO ; Init pr 

PRIVSO<RO), PRIVFO<RO)i Re 
#*INKMN, LSW4<R1); Are we 
12* i Br if n 

PRIVSO(RO)>PRIVCO<RO) ;R 



#2, RO 

RO, #PVNPW*2 

10* 

AFCF 

#*INKMN, LSW4<R1); Are uie 

9* ; Br if n 

#*SCCA» LSW5<R1) i Clear a 

#*NOWIN, LSWlKRDi Clear 

SUCF2 i Is ther 

9* / Br i f n 

STOP i Reenter 



Increme 
Done al 
Loop if 
Clear c 



data coming from command file 

) ; CLEAR COMMAND FILE CONTROL FLAGS 

leaving a log off command file? 

do not restore terminal input 

NPUT TO BE ACCEPTED FOR LINE 

are no longer executing startup file 

ivilege vector index 

set command file priv to set priv 

in TSKMON now? 

ot 

eset current privileges 

nt word index 

1? 

more 
ommand file attribute flags 
in TSKMON now? 
ot 

bort-suppression flag 
window suppression 
e a pending secondary file? 
ot 

KMON to start secondary file 



Reopen next higher level file 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



010422 
010426 
010432 
010434 
010436 
010440 
010442 
010446 
010450 
010452 



010454 
010456 
010462 
010466 
010470 
010472 
010474 



010504 
010510 
010514 
010516 
010520 



010524 
010530 
010536 
010544 
010546 
010554 
010562 
010564 



010572 
010574 
010600 
010604 
010610 
010614 



Restore parameter pointers 



013705 
012703 
012504 
001402 
010423 
000774 
020327 
103002 
005023 
000773 



012504 
010437 
020427 
101402 
012544 
000773 
012537 



OOOOOOG 
OOOOOOG 



OOOOOOG 



2*: 
4$: 

3«: 



MOV 


CFSP, R5 


MOV 


#PRMPNT, R3 


MOV 


<R5)+.R4 


BEQ 


3« 


MOV 


R4, (R3) + 


BR 


4* 


CMP 


R3, #LSTPRM 


BHIS 


5* 


CLR 


(R3) + 


BR 


3* 



GET COMMAND FILE STACK POINTER 

POINT TO PARAM POINTER CELLS 

GET A PARAMETER POINTER 

BR IF END OF LIST HIT 

RESTORE POINTER 

GO BACK AND DO NEXT ONE 

ZERO ALL OTHER PARAMETER POINTERS 



Restore parameter strings 



OOOOOOG 
OOOOOOG 



OOOOOOG 



5«; 
7*: 

6*: 



MOV 


(R5)+,R4 


i 


MOV 


R4, PBFEND 




CMP 


R4, #PRMBUF 




BLOS 


6* 




MOV 


(R5)+, -<R4) 




BR 


7* 




MOV 


(R5)+>CURPRM 


t 



010500 012537 OOOOOOG 



Restore IND status flags 
MOV (R5)+iCFIND 



GET ADDRESS OF END OF STRING 

RESTORED ALL OF STRING? 

BR IF YES 

POP STRING OFF OF STACK 

POP POINTER INTO STRING 



; RESTORE IND STATUS FLAGS 



Reset command file control flags 



012704 
040461 
005104 
040415 
052561 



012537 
052761 
032737 
001003 
042761 
032737 
001003 
042761 



005000 
011560 
012560 
062700 
020027 
103767 



OOOOOOG 
OOOOOOG 



OOOOOOG 



MOV #CFLFL4, R4 

BIC R4, LSW4<R1) 

COM R4 

BIC R4, (R5) 

BIS (R5)+. LSW4<R1) ; SET DESIRED FLAGS 



GET CONTROL FLAG MASK 

CLEAR THOSE FLAGS 

MASK ALL BUT THOSE FLAGS 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 
000002 

ooooooc 



Restore command file attribute flags 

MOV <R5)+. AFCF ; Restore command file attribute flags 

BIS #*SCCA* LSW5<R1) i Assume ctrl-C abort suppression wanted 

BIT #AF*CCA> AFCF » Is abort suppression uianted? 

BNE 13$ ; Br if yes 

BIC #*SCCA, LSW5(R1) ; Clear abort-suppression flag 

13*: BIT #AF*NPW> AFCF ; Suppressing process uiindoujing? 

BNE 14* ; Br if yes 

BIC #*NOWIN. LSWl 1 (Rl )i Clear windom suspend flag 

Restore command file privileges 

14*: CLR RO i Init vector index 

8*: MOV (R5),PRIVF0<R0) ; Restore each privilege word 

MOV <R5)+, PRIVC0<R0); Reset current privilege too 

ADD #2* RO ; Increment index 

CMP RO, #PVNPW*2 iDone all? 

BLO 8* i Loop if more 

Restore buffer pointer information 



TSTTY — 


TSX Terminal I 


/□ routi 


MACRO VO£ 


CFPOP - 


- Pop u 


p to nex 


t command 


file 


115 


010616 


012500 






116 


010620 


004737 


010124' 




117 


010624 


012537 


0000000 




lis 










119 










120 










121 


010630 








122 


010646 


062705 


000012 




123 


010652 


052761 


0000000 


OOOOOOG 


124 








i 


125 








i 


126 








> 


127 


010660 








128 








r 


129 








; 


130 








f 


131 


010720 


010537 


OOOOOOG 




132 


010724 


105337 


0000000 




133 










134 










135 










136 










137 










138 










139 










140 


010730 


032761 


OOOOOOG 


OOOOOOG 


141 


010736 


001410 






142 


010740 


013705 


OOOOOOG 




143 


010744 


132765 


OOOOOOG 


OOOOOOG 


144 


010752 


001402 






145 


010754 


004737 


OOOOOOG 




146 


010760 


112637 


000052 


« 


147 


010764 


012605 






148 


010766 


012604 






149 


010770 


012603 






150 


010772 


012601 






151 


010774 


000207 
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MOV (R5)+, RO 

CALL CFSTRT 

MOV (R5)+, CFBLK 

Reopen the command file 



POINTER INTO BUFFER 

Reset command file pointer 

CURRENT BLOCK NUMBER 



. REOPEN #CFARG, #CFCHAN, R5 ; REOPEN COMMAND FILE 

ADD #10. ,R5 'POP SAVE STATUS INFO 

BIS #*CFOPN, LSW4(R1>;SAY COMMAND FILE CHANNEL IS OPEN 

Reread current buffer from file 

. READW #CFARG, #CFCHAN, #CFBUF, #256. , CFBLK 



Finished restoring file 



MOV 
DECB 



R5, CFSP 
CFNEST 



; SAVE UPDATED STACK POINTER 
; SAY ONE LESS FILE ON STACK 



If we just reached the end of a command file created to hold 
an expanded IND command and KMON is trying to read another 
command, call STOP to force KMON to go back to IND to get the 
next command before continuing on uith an outer level 
command file. 



9*: 



BIT 

BEQ 

MOV 

BITB 

BEQ 

CALL 

MOVB 

MOV 

MOV 

MOV 

MOV 

RETURN 



#*INKMN, LSW4<Rl)i IS KMON RUNNING? 

9* ; BR IF NOT 

CXTRMN, R5 i GET ADDRESS OF SIMULATED RMON DATA 

#IN*ACT. R*INST(R5>i IS IND ACTIVE? 



9* 

STOP 

(SP)+. @#52 
(SP)+, R5 
(SP)+i R4 
(SP)+, R3 
(SP)+, Rl 



BR IF NOT 

REENTER KMON TO FORCE REENTRY OF IND 

RESTORE I/O ERROR CELL 



TSTTY - 


- TSX Terminal I 


/ r u t i 


LOGCHR - 

1 
2 
3 


— Write 


charact 


er to lo 








4 








5 








6 








7 








8 








9 


010776 


010046 




10 








11 








12 








13 


011000 


042700 


177400 


14 


011004 


120027 


000003 


15 


011010 


001403 




16 


011012 


120027 


000032 


17 


011016 


001007 




18 


011020 


112700 


000136 


19 


011024 


004737 


011074' 


20 


011030 


011600 




21 


011032 


062700 


000100 


22 


011036 


004737 


011074' 


23 








24 








25 








26 


011042 


012600 




27 


011044 


000207 




28 








29 








30 








31 








32 








33 


011046 


010046 




34 


011050 


1 1 2700 


0000000 


35 


011054 


004737 


011074' 


36 


011060 


112700 


OOOOOOG 


37 


011064 


004737 


011074' 


38 


011070 


012600 




39 


011072 


000207 





MACRO V05. 05 
I file 
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. SBTTL LOGCHR — Write character to log file 

LOGCHR is called to write a character to the log file. 
Control characters are converted into ■''character sequences. 

Inputs: 
RO = Character to be written to log. 

LOGCHR: MOV RO, -(SP) 

See if this is a control character 



BIC 

CMPB 

BEQ 

CMPB 

BNE 

1«: MOVE 
CALL 
MOV 
ADD 

2*: CALL 

Fini shed 

MOV 
RETURN 



#••^0377, RO 

RO, #3 

1* 

RO, #32 

2* 

^'■^, RO 

LOGCHl 

( SP ) , RO 

#100.. RO 

LOGCHl 



< SP ) +, RO 



; Strip character douin to 8 bits 

; Is character control-C? 

; Br if yes 

; Is character control-Z? 

i Br if not 

i Log "■''" 

j Get back original character 
i Convert to printing character 
; Log the character 



LOGCR is called to send a carriage-return and line-feed sequence 
to the log file. 



LOGCR : MOV 
MOVE 
CALL 
MOVE 
CALL 
MOV 
RETURN 



RO, -(SP) 
#CR, RO 
LOGCHl 
#LF, RO 
LOGCHl 
<SP)+, RO 



; Log carriage-return 
i Log 1 ine-f eed 



TSTTY - 
LOGCHR - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
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" Write character to log file 



011074 010246 



LDGCHl is called to move a character to the log buffer. 
No tests or conversions are performed on the character. 
No logging is done if echo suppression is in effect. 

Inputs: 
RO = Character to be written. 

LOOCHl: MOV R2, -<SP) 

Check to see if log file output has been suspended <NOWRITE option) 



011076 
011104 



011106 
011112 
011114 
011120 



011122 
011126 
011130 
011134 
011172 
011174 
011200 
011204 
011210 
011214 
011220 
011224 



011226 
011230 



011234 
011236 



032737 
001453 



013702 
001450 
020227 
103442 



012702 
010046 
1 1 3746 

103010 
012705 
013704 
005037 
000137 
005237 
112637 
012600 



1 1 0022 
010237 



012602 
000207 



OOOOOOG 0000000 



BIT #LF*WRT> LOOFLG 
13 EG 9* 



; Has log file been suspended? 
> Br if yes 



OOOOOOG 
OOOOOOG 



OOOOOOG 
000052 



177753 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000052 



OOOOOOG 



Get current buffer pointer and make sure buffer is not full 



MOV LOGPTR, R2 

BEQ 9* 

CMP R2, #LOGEND 

BLD 1* 

Log file buffer is full. 



?*: 



MOV 


#LOGBUF, R2 


MOV 


RO, -<SP) 


MOVE 


©#52, -<SP) 


, WRITW 


#CFARG, #L0 


BCC 


2* 


MOV 


#-25, R5 


MOV 


EMTADR, R4 


CLR 


LOGPTR 


JMP 


ABORT 


INC 


LOGBLK 


MOVE 


(SP)+, e#52 


MOV 


<SP)+, RO 



>Get current log file buffer pointer 
; Br if not doing logging 
; Is buffer full? 
j Br if not 

Write it to the log file. 

i Point to front of buffer 



i Save job's error cell 
12, #256. , LOGBLK ; Write block to log file 

Br if no write error 

Abort job if error writing to log file 

Get address of EMT 

Say we have stopped using log file 

Abort the job 

Advance log file block number 

Restore error cell 



Move character to log buffer 



1*: 



9«: 



MOVE 


RO, (R2) + 


MOV 


R2, LOGPTR 


Finished 




MOV 


( SP ) +, R2 


RETURN 





i Move char to log file buffer 
i Save new buffer pointer 
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ILWAIT — Wait for activation char from terminal 



1 
2 
3 
4 
5 
6 

7 01 

8 01 

9 01 
10 01 
11 

12 
13 
14 

15 01 

16 01 

17 01 
IS 01 
19 01 
20 

21 



. SBTTL ILWAIT 



Wait for activation char from terminal 



1240 
1246 
1250 
1256 



1262 
1270 
1272 
1300 
1306 



23 
24 
25 
26 
27 

28 01 

29 01 

30 01 

31 01 

32 01 

33 01 

34 01 

35 01 

36 01 

37 01 

38 01 

39 01 

40 01 

41 01 

42 01 

43 01 

44 01 

45 01 



1316 
1322 
1330 
1336 
1342 
1350 
1354 
1356 
1364 
1366 
1374 
1402 
1404 
1410 
1414 
1416 
1420 
1426 



ILWAIT WAITS UNTIL AN ACTIVATION CHARACTER IS RECEIVED 
FOR CURRENT USER. ALL REGISTERS ARE PRESERVED. 
WHEN CALLED Rl MUST CONTAIN THE USER INDEX #. 



032761 
001405 
052761 
004737 



0000000 OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



ILWAIT: BIT 
BEQ 
BIS 
CALL 



#*DETCH, LSW(Rl) 

15* 

#*DISCN, LSW(Rl) 

STOP 



IS THIS A DETACHED JOB? 

BR IF NOT 

FORCE JOB LOGOFF 

HALT DETACHED JOBS THAT WANT TERMINAL INPUT 



If we previously stopped input from silo buffer. Restart it now 
if we are about to run out of characters. 



032761 
001410 
042761 
052761 
005237 



OOOOOOG OOOOOOG 15*: 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 



BIT 
BEQ 
BIC 
BIS 

INC 



#*XSTOP, LSW6<R1); DID WE SUSPEND TRANSMISSION TO US? 

11* iBR IF NOT 

#*XST0P.LSW6<Rl)i RESTART INPUT 

#*NDICP, LSW10<R1 )i Say line needs input character servicing 



NEDCDI 



j Say input processing needed 



011312 004737 011430' 



004737 
042761 
042761 
004737 

005761 
001021 
032761 
001006 
013761 
013761 
010046 
012700 
004737 
012600 
000747 

000207 



If lue are in deferred echo mode, echo any pending 
Characters on last line. 

11*: CALL DFRREL i Release deferred echo mode 

Suspend user till activation character received. 



017574' 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 



13*: 



J*: 



1*: 



CALL 

BIC 

BIC 

CALL 

DISABL 

TST 

BNE 

BIT 

BNE 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

BR 

ENABL 

RETURN 



i SIGNAL VIRTUAL LINE WAIT CONDITION 

; ALLOW INPUT TO BE ACCEPTED FOR LINE 

iSay we are no longer executing startup file 

; SEE IF JOB HAS BEEN ABORTED 

; #* DISABLE ** 

;GOT ANY ACTIVATION CHARS YET? 

;BR IF YES 

i Does user want non-interactive execution? 

i Br if yes 

VINTIO,LHIPCT<Rl)i RESET INTERACTIVE I/O LIMIT FOR JOB 
VQUANl,LITIME<Rl)i RESET INTERACTIVE CPU TIME LIMIT 
RO, -<SP) 

#S*INWT>RO ;GET WAITING-FOR-INPUT STATE 

QHDSPN i SUSPEND JOB AND WAIT FOR ACTIVATION »ENABLE* 

(SP)+, RO 
13* i NOW CHECK AGAIN 

; ■«•* ENABLE *« 



SIGWAT 

#*NOIN, LSW3(R1) 
#*SUCF, LSW9<R1) 
CHKABT 

LACTIV(R1 ) 

1* 

#*NOINT. LSW7(R1 ) 

5* 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 

24 01 

25 01 

26 01 

27 01 

28 01 

29 01 
30 

31 
32 

33 01 

34 01 

35 01 

36 01 

37 01 

38 01 

39 01 

40 01 

41 01 

42 01 

43 01 

44 01 

45 01 

46 01 

47 01 

48 01 

49 01 

50 01 
51 

52 

53 

54 01 

55 

56 

57 



011430 
011432 
011434 



011436 
011444 
011452 
011454 
011460 
011462 



1470 
1476 
1504 
1512 
1514 
1516 



1522 
1526 
1530 
1534 
1536 
1540 
1544 
1546 
1554 
1556 
1560 
1562 
1566 
1572 
1574 
1600 
1602 
1604 



010246 
010346 
010446 



032761 
001460 
005761 
001055 



042761 
052761 
116161 
005004 
005003 
016102 



020361 
103027 
004737 
005704 
001015 
120027 
001006 
032761 
001402 
005204 
000410 
004737 
004737 
005004 
032700 
001005 
005203 
000746 



SBTTL DFRREL — Release deferred echo mode 



DFRREL is called to release deferred echo mode and to echo any 
pending deferred characters. 



Inputs: 
Rl = Job index number 



DFRREL: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP) 
R4, -(SP) 



See if u»e are currently doing deferred echoing 



ooooooe ooooooG 

OOOOOOG 



DISABL 




BIT 


#*D0DFR,LSW3<R1> 


BEQ 


6* 


TST 


LACTIV<R1) 


BNE 


6* 


ENABL 





«* DISABLE INTERRUPTS »« 

ARE WE IN DEFERRED ECHO MODE? 

BRANCH IF NOT 

ARE THERE ANY PENDING ACTIVATION CHARS? 

BR IF YES — DON'T ECHO IF PENDING ACTIV 

** ENABLE INTERRUPTS ** 



We are in deferred echo mode 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 

OOOOOOG 
016420' 

OOOOOOG 
OOOOOOG OOOOOOG 



BIC #*GCEC0>LSW3<Rl)i RESET GETCHR ECHOING 

BIS #*lSTCH>LSW3(Rl)iSAY WE'VE GOT 1ST CHAR 

MOVB LCOL(Rl),LINCUR(Rl)iSAVE CURSOR POSITION 

CLR R4 i R4 IS FLAG FOR ESC SEQ CHARS 

CLR R3 

MOV LINPNT<R1),R2 i POINT TO START OF PENDING CHARS 

Begin loop to echo all pending characters 



5*: 



017522' 
007100' 

OOOOOOG 



9*: 
B*: 

10*: 



i ECHOED ALL PENDING? 
i BRANCH IF FINISHED 

>0ET NEXT CHAR FROM TT INPUT BUFFER 
i IS THIS CHAR PART OF ESC SEQ? 
; BR IF YES 

i FLAG THAT NEXT CHAR PART OF ESC SEQUENCE? 
; BR IF NOT 
#*VTESCj LSW5(R1 ); Are we activating on escape sequences? 

i Br if not — Treat ESCFLG like normal char 
; SET ESC SEQ FLAG 

CONVERT LOWER CASE TO UPPER CASE 

ECHO IT 

CLEAR ESC SEQ FLAG 

IS THIS AN ACTIVATION CHAR? 

BRANCH IF YES 

COUNT CHARS ECHOED 



CMP 


R3, LINCNT<R1) 


BHIS 


4* 


CALL 


FETCHR 


TST 


R4 


BNE 


8« 


CMPB 


R0> #ESCFLG 


BNE 


9* 


BIT 


#*VTESC,LSW5( 


BEQ 


9* 


INC 


R4 


BR 


10* 


CALL 


CVTLC 


CALL 


GCECHO 


CLR 


R4 


BIT 


#ACFLA0, RO 


BNE 


6* 


INC 


R3 


BR 


5* 



Release deferred echo mode 
1606 042761 OOOOOOG OOOOOOG 4*: BIC #*DODFR, LSW3<R1 ) i BEGIN IMMEDIATE CHAR ECHOING 

Fini shed 
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58 
59 
60 
61 
62 



011614 
011622 
011624 
011626 
011630 



6*: 



012604 
012603 
012602 
000207 



ENABL 

MOV 

MOV 

MOV 

RETURN 



; •«•■«■ ENABLE INTERRUPTS ** 



(SP)+, R4 
(SP)+, R3 
<SP)+, R2 
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1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 
12 
13 
14 

15 01 

16 01 

17 01 
18 

19 
20 

21 01 

22 01 



. SBTTL 

. SBTTL *# Fork Level Input Character Processing ** 

. SBTTL TTINCP — Process received input characters 

TTINCP is called at fork level after each received character 
has been stored in the high speed input ring buffer. 
The function of TTINCP is to remove characters from the 
high speed input ring buffer and perform the TSX-Plus 
character processing which will eventually cause the character 
to be stored in the input ring buffer for the line. 

Inputs: 
R4 = Line index number 



1632 
1634 
1636 



1640 
1646 



010146 
010546 
010401 



032764 
001007 



TTINCP: MOV 
MOV 
MOV 



Rl, -<SP) 
R5, -<SP) 
R4, Rl 



OOOOOOG OOOOOOG 5$: 



23 
24 
25 

26 011650 004777 OOOOOOG 

27 011654 103404 
23 011656 010005 
29 

30 

31 

32 011660 004737 011674' 

33 

34 

35 

36 

37 011664 000765 

38 

39 

40 

41 

42 011666 012605 

43 011670 012601 

44 011672 000207 



i Carry line index number in Rl too 

See if TT input ring buffer is full 

BIT #*XSTOP. LSW6(R4); Has input been suspended due to buffer full 
BNE 9* i Br if yes 



Get next character from input silo 



CALL 


eSILFET 


BCS 


9* 


MOV 


RO, R5 



Get next character from input silo 
Br if no characters in silo 
Put character in R5 for GOTCHR 



Now call main routine to process a character for this line 

CALL GOTCHR ) Process a character for this line 

Finished processing a character. 

Go back and see if there are any more characters to process. 

BR 5* /Check for more characters to process 

Finished processing all pending characters for this line. 



9*: 



MOV 
MOV 
RETURN 



(SP)H-, R5 
<SP)+, Rl 



I 

I 



TSTTY — 
TTINCP - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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011674 010146 



A character has been received from a line. 

Check to see if the line is active or needs to be started. 

Inputs: 
R4 = Physical line indest number. 
R5 = Received character. 

GOTCHR: MOV R1,-(SP) 

Ignore the character if system initialization is not yet complete 



011676 
011702 



011704 
011710 
011716 



105737 
001052 



116401 
032761 
001033 



OOOOOOG 



TSTB 
BNE 



INITFLG 
9* 



/Is system initialization finished yet? 

i Br if not 



0000000 
OOOOOOG OOOOOOG 



011720 
011724 
011726 
011734 



011736 
011744 
011746 
011754 
011756 
011760 
011764 
011766 
011772 



011774 
011776 
012004 



105737 
001041 
032764 
001035 



032764 
001405 

103007 
000424 
120527 
001403 
120527 
001016 



005000 
000403 



OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 



See if this line has been initialized yet 

MOVB LNMAP<R4),R1 i Get virtual line index number 
BIT #*DILUP, LSW<R1) i Has line been started yet? 
BNE 1* ; Br if yes 

Line has not been initialized yet. 
See if me should start it now. 

TSTB STPFLG ils a system shutdouin in progress? 

BNE 9« i Br if yes — Don't start any lines 

BIT #*DEAD, LSW3<R4) ils this line marked as dead? 

BNE 9* ; Br if yes 

See if we should do autobaud speed selection for this line 

Is autobaud speed selection wanted? 
Br if not 

Do autobaud speed selection 
Br if we should start the line now 
Do not start the line yet 
3*: CMPB R5, #CR ;Is character Carriage-return? 

Br if yes 

Is character ctrl-C7' 
Br if not 



BIT 


#*AUTO, ILSW2(R4) 


BEQ 


3* 


OCALL 


AUTSPD 


BCC 


2* 


BR 


9* 


CMPB 


R5, #CR 


BEQ 


2* 


CMPB 


R5, #CTRLC 


BNE 


9* 



Start up a previously inactive line 



?*: 



CLR 

OCALL 

BR 



RO 

INITLN 

5* 



i No secondary start-up command file 
; Initialize the line 



012006 005764 

012012 001404 

012014 042761 

012022 000402 



OOOOOOG 
OOOOOOG OOOOOOG 



1*: 

5*: 



See if we are ignoring trash characters that may be received after 
the autobaud start-up character. 

TST LABTIM<R4) jIs autobaud masking trash characters? 

BEQ 4* A Br if not 

BIC #«RBRK,LSW10<Rl>i Clear break-received flag 

BR 9* ;Wait for autobaud mask time to end 

Process an input character for an active line 
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58 012024 004737 012034' 4*: CALL PRCHAR i Process the character 

59 ; 

60 ;Finished 

61 ; 

62 012030 012601 9$: MOV <SP)+>R1 

63 012032 000207 RETURN 



TSTTY — 
TTINCP - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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012034 
012036 
012040 



012042 
012046 
012054 
012056 
012062 
012070 



012072 
012076 



012100 
012106 



012110 
012114 
012116 
012120 
012122 
012126 



012130 
012134 
012136 
012140 
012144 
012150 
012152 
012154 
012156 
012160 
012162 
012166 



010246 
010346 
010446 



016104 
032764 
001406 
004737 
042764 
000554 



042705 
001551 



032761 
001054 



016102 
001405 
020502 
001003 
004737 
000535 



016102 
001424 
010500 
004737 
016103 
120023 
001402 
077203 
000404 
010005 
004737 
000515 



OOOOOOG 
0000000 

017652' 
OOOOOOG 



OOOOOOG 



OOOOOOG 



177400 



OOOOOOG OOOOOOG 



OOOOOOG 



017652' 



Process a character received by an active line. 

Inputs: 
Rl = Job's virtual line index number. 
R5 == Received character. 



PRCHAR: MOV 
MOV 
MOV 



R2, -(SP) 
R3, -<SP) 
R4, -(SP) 



See if me received a real break (long space). 

MOV LNPRIM(R1),R4 ; Get primary line # 

BIT #*RBRK» LSW10(R4);Did use receive a break? 

BE(3 1* ;Br if not 

CALL SIGBRK i Signal that tue received a break 

BIC #*RBRK,LSW10(R4); Clear break-received flag 

BR PRCEND i Finished with break character 

Mask character to 8 bits and ignore nulls 



1$: 



BIC 
BEQ 



#-"X377, R5 
PRCEND 



iMask character to 8 bits 
; Ignore null characters 



If debugger is in control/ bypass some special character processing 

BIT #*DBGMD, LSW6(R1 )J Is debugging program in control? 
BNE CKCW > If yes then bypass some checking 

See if user defined an asynchronous break character 



MOV LBRKCH(R1),R2 

BEQ CKSPAC 

CMP R5, R2 

BNE CKSPAC 

CALL SIGBRK 

BR PRCEND 



/Did user define an asynch break char? 

; Br if not 

; Is this the break character? 

i Br if not 

;Tell user that break char was received 



See if this is a user-defined activation character 



OOOOOOG 



017522' 
OOOOOOG 



016300' 



CKSPAC: 


MOV 


LNSPAC(R1),R2 




BEQ 


CKVTES 




MOV 


R5, RO 




CALL 


CVTLC 




MOV 


LSPACT(R1),R3 


1*: 


CMPB 


RO, (R3) + 




BEQ 


2* 




SOB 


R2, 1* 




BR 


CKHIIN 


2*: 


MOV 


RO, R5 




CALL 


STRACT 




BR 


PRCEND 



iGet number of user-defined activation chars 

i Br if there are none 

i Get current character 

/Convert to upper-case if needed 

/Get pointer to table of activation chars 

/Is this an activation character? 

/Br if yes 

; Loop if more to check 

/This is not a user-defined activation char 

; Get converted character to R5 

/Store the activation character 



See if we are in h igh-ef f ic ienty mode 
012170 032761 OOOOOOG OOOOOOG CKHIIN: BIT #*HITTY/ LSW4(R1 ) ; Are we in high-efficiency mode? 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

6S 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



012176 
012200 
012204 



012206 
012214 
012216 
012222 
012224 
012230 
012232 
012236 



012240 
012244 
012246 
012254 
012256 
012264 
012272 
012276 
012300 
012304 
012306 
012314 
012316 
012324 
012326 
012332 
012334 
012342 
012346 
012350 
012354 
012356 
012364 



012366 
012372 
012374 
012400 
012402 
012406 
012410 
012414 
012416 



012422 
012424 



001403 
004737 
000506 



032761 
001411 
004737 
103406 
005761 
001003 
004737 
103071 



120537 
001024 
032761 
001414 
042761 
042761 
004737 
103451 
004737 
000446 
052761 
000442 
032761 
001420 
020527 
101415 
042761 
162705 
002425 
020527 
003022 

000416 



020527 
101003 
004737 
000410 
120527 
001003 
004737 
000402 
004737 



012604 
012603 



016002' 



i Br if not 

i Store the character 



See if this is a VT52 escape-letter sequence 



BEQ 


CKVTES 


CALL 


STRCHR 


BR 


PRCEND 



0000000 OOOOOOG 
017322' 
OOOOOOG 
015310' 



CKVTES: BIT 
BEQ 
CALL 
BCS 
TST 
BNE 
CALL 
BCC 



#*VTESC, LSW5(R1); Activate on esc-Ietter sequence? 

CKCW J Br if not 

SCACHK ;Are me in single character activ mode? 

CKCW ; Br if yes 

LTTCR<R1) i Is terminal input cmpl rtn scheduled? 

CKCW i Br if yes 

CKVTAC j Check for escape-letter sequence 

PRCEND ; Br if char luas part of escape sequence 



Check for request to switch to a virtual line 



OOOOOOG 
OOOOOOG OOOOOOG 



CKCW: 



OOOOOOG 
OOOOOOG 
017504' 

015764' 

OOOOOOG 

OOOOOOG 

000037 

OOOOOOG 
000060 

OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 



2*: 
1*: 



CMPB 

BNE 

BIT 

BEQ 

BIC 

BIC 

CALL 

BCS 

CALL 

BR 

BIS 

BR 

BIT 

BEQ 

CMP 

BLOS 

BIC 

SUB 

BLT 

CMP 

BGT 

DCALL 

BR 



R5, VVLSCH 

1* 

#*CTRLW, LSW3<R1) 

2* 

#*1ESC.LSW<R1) 

#«CTRLW, LSW3<R1) 

SCACHR 

PRCEND 

INCHR 



Is this char a request to switch to vir line? 

Br if not 

Was last character also control-W? 

Br if not 

Say last char tuas not escape 

Say last char not control-W 

See if we are in single-char activation mode 

Br if in single-char activation mode 

Pass control-W to program as normal char 



PRCEND 

#«CTRLW, LSW3(R1); Remember last char was control-W 

PRCEND 

Was control-W the last character? 

Br if not 

Is current character a control character? 

Br if yes 

Say control-W is not the last char 

Convert line # digit to binary value 

Br if too small 

Don't exceed max line # allowed 

Br if too large 

Switch to a virtual line 



#*CTRLW, LSW3<R1> 

CKICTL 

R5, #37 

CKICTL 

#«CTRLW, LSW3(R1) 

#'0, R5 

PRCEND 

R5, #MAXSEC 

PRCEND 

DOSWIT 

PRCEND 



000037 

012650' 

OOOOOOG 

014752' 

012432' 





Determine 


if this is a 


CKICTL: 


CMP 


R5, #37 






BHI 


1* 






CALL 


DOCTRL 






BR 


PRCEND 


1*: 




CMPB 


R5, #RUBOUT 






BNE 


2* 






CALL 


ICPRUB 






BR 


PRCEND 


2*: 




CALL 


REGCHR 




Fini 


shed 




PRCEND: 


MOV 


<SP)+. R4 






MOV 


<SP)+, R3 



i Is this a normal or control char? 

j Br if not control character 

i Process a control character 

J Is this a rubout character? 

; Br if not 

i Process rubout character 

i Process a normal character 



( 
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115 012426 012602 MOV (SP)+. R2 

116 012430 000207 RETURN 



TSTTY ■ 
REGCHR 



1 
2 
3 
4 
5 
h 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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. SBTTL REGCHR — Process normal characters 

Process normal (non-control) characters. 

Inputs: 
Rl == Virtual line index number. 
R5 = Current input character. 



012432 010246 
012434 010546 
012436 010500 



012440 032761 
012446 001075 



REGCHR: MOV 
MDV 
MOV 



R2, -(SP) 
R5, -<SP) 
R5, RO 



OOOOOOG OOOOOOG 



012450 042761 OOOOOOG OOOOOOG 
012456 042761 OOOOOOG OOOOOOG 



012464 004737 017362' 

012470 103003 

012472 004737 016360' 

012476 000461 



;Copy the character 

Ignore all input while processing logoff command file 

BIT #*LOFCF/ LSW9(R1 ); Are we processing a logoff command file? 
BNE 9* ; Br if yes — ignore the character 

Say last character was not control-C 

BIC #«1ESC, LSW(R1 ) j Say last char was not escape 

BIC #*1CTLC> LSW5(R1 )i Say last character was not control-C 

See if we are in single character activation mode 

i Are we in single-char activation mode or SL? 

; Br if not 

i Store character and activate 



CALL 


SLCHK 


BCC 


6* 


CALL 


STRSNG 


BR 


9* 



See if ODT is in control 



012500 032761 OOOOOOG OOOOOOG 6*: 

012506 001413 

012510 004737 015522' 

012514 103010 

012516 120027 000040 

012522 103402 

012524 004737 017140' 

012530 004737 016360' 4«: 

012534 000442 



BIT 


#«ODTMD, LSW4 < R 1 ) 


BEQ 


3* 


CALL 


CHKODT 


BCC 


3* 


CMPB 


RO, #40 


BLO 


4* 


CALL 


ECHO 


CALL 


STRSNG 


BR 


9* 



Is ODT activation in effect? 

Br if not 

Is this an ODT activation char? 

Br if not 

Is this a control character? 

Br if yes — Don't echo it 

Echo the character 

Store character and activate 



012536 016102 OOOOOOG 

012542 001416 

012544 005302 

012546 020261 OOOOOOG 

012552 101012 

012554 032761 OOOOOOG OOOOOOG 

012562 001006 

012564 004737 017140' 

012570 010005 

012572 004737 016300' 

012576 000421 



3*: 



Check for activation on input of a certain number of characters 

iWas field width activation specified? 

; Br if not 

i Is field full yet? 

Br if not 

Is a debugger running? 

Br if yes 

Echo character 

Save the converted character 

Store the activation character 



See if we need to limit number of characters that can be 
typed into a field 



MOV 


LAFSIZ(R1>»R2 


BEQ 


1* 


DEC 


R2 


CMP 


R2, LINCNT(Rl) 


BHI 


1* 


BIT 


#*DBGMD, LSW6<R1) 


BNE 


1* 


CALL 


ECHO 


MOV 


RO, R5 


CALL 


STRACT 


BR 


9* 



TSTTY — 
REGCHR - 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
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012600 016102 OOOOOOG 

012604 001414 

012606 026102 OOOOOOG 

012612 103411 

012614 032761 OOOOOOG OOOOOOG 

012622 001005 

012624 012700 OOOOOOG 

012630 004737 017200' 

012634 000402 



012636 004737 015764' 



1$: 



MOV 


LFWLIM(R1).R2 


BEQ 


2* 


CMP 


LINCNT<R1).R2 


BLO 


2* 


BIT 


#*DBGMD, LSW6< 


BNE 


2* 


MOV 


#BELL, RO 


CALL 


ECH02 


BR 


9* 



012642 012605 
012644 012602 
012646 000207 



Normal character being input 
2*: CALL INCHR 

Finished 
9*: 



i If field width limit specified? 
> Br if not 

; Would this character overflow the field? 
; Br if not 

ij Is debugger in control? 
; Br if yes 
J Echo bel 1 

j Discard the character 



Store and echo the character 



MOV 
MOV 
RETURN 



(SP)+, R5 
(SP)+, R2 



TSTTY - 
DOCTRL 



1 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
20 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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- Process control characters 

. SBTTL DOCTRL — Process control characters 



DOCTRL is called from the input interrupt character processing uihen 

me determine that the character being processed is a control character. 



012650 



012650 120537 OOOOOOG 

012654 001004 

012656 

012664 000425 



012666 120537 OOOOOOG 

012672 001016 

012674 032761 OOOOOOG OOOOOOG 

012702 001412 

012704 016100 OOOOOOG 

012710 001407 



012712 010246 

012714 010002 
012716 

012724 012602 

012726 000404 



012730 010500 
012732 006300 
012734 004770 012742 



012740 000207 



* Inputs; 

i Rl = Virtual line number. 

> R5 = Character to process. 

i 

DOCTRL: 

i 

} See if this is a request for job status information 
> 

i Request for '^T info? 

; Br if not 

jCall TSTTY2 to do it 

> See if this is a request to print the current windom 

3«: CMPB R5, VVPWCH i Request to print screen? 

BNE 1* i Br if not 

BIT #*PWKEY» LSWlKRDi Is print uindou control char enabled? 

BEQ 1* i Br if not 

MOV LWIND0<R1 )» RO i Is windowing enabled for this process? 

BEQ 1* J Br if not — Treat char like ordinary char 

This is a request to print the current window contents 



CMPB 


R5, VCTRLT 


BNE 


3* 


OCALL 


DOCTLT 


BR 


9* 



2$: 



MOV 


R2, -<SP) 


MOV 


RO, R2 


OCALL 


WINPRT 


MOV 


<SP)+, R2 


BR 


9* 



; Get address of current window control blk 
i Print the window 



This is an ordinary control character 



If 


: MOV 


R5, RO 




ASL 


RO 




CALL 


@CTLRTN(RO) 


i 


Finished 




9« 


RETURN 





i Get the control character 

> Convert to word table index 

iCall appropriate processing routine 



012742 
012744 
012746 
012750 
012752 
012754 
012756 
012760 
012762 



012432' 
012432' 
012432' 
013302' 
013632' 
012432' 
012432' 
013702' 
012432' 



Branch table for control character processing routines. 



00 - NUL 

01 - SOH <control-A) 

02 - STX <control-B) 

03 - ETX <control-C) 

04 - EOT (control-D) 

05 - ENQ (control-E) 

06 - ACK <control~F) 

07 - BEL (control-G) 
10 - Backspace 



CTLRTN: . WORD 


REGCHR 


. WORD 


REGCHR 


. WORD 


REGCHR 


. WORD 


ICPCTC 


. WORD 


ICPCTD 


. WORD 


REGCHR 


. WORD 


REGCHR 


. WORD 


ICPCTG 


. WORD 


REGCHR 



i 
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58 012764 

59 012766 

60 012770 

61 012772 

62 012774 

63 012776 

64 013000 

65 013002 

66 013004 

67 013006 

68 013010 

69 013012 

70 013014 

71 013016 

72 013020 

73 013022 

74 013024 

75 013026 

76 013030 

77 013032 

78 013034 

79 013036 

80 013040 



012432' 
013176' 
012432' 
012432' 
013042' 
012432' 
013766' 
012432' 
012432' 
014056' 
012432' 
012432' 
014122' 
012432' 
012432' 
014502' 
012432' 
014566' 
014622' 
012432' 
012432' 
012432' 
012432' 



WORD 


REGCHR 


WORD 


ICPLF 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


ICPCR 


WORD 


REGCHR 


WORD 


ICPCTO 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


ICPCTR 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


ICPCTU 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


ICPCTX 


WORD 


REGCHR 


WORD 


ICPCTZ 


WORD 


ICPESC 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


REGCHR 



Page 


52-1 






11 - 


TAB 


(control 


-I) 


12 - 


Line feed 




13 - 


VT 


(control 


-K) 


14 - 


FF 


(control- 


-L) 


15 - 


Carriage ret 


urn 


16 - 


SO 


(control 


~N) 


17 - 


SI 


( control- 


-0) 


20 - 


DLE 


(control- 


-P) 


21 ~ 


DCl 


(control- 


-Q) 


22 - 


DC2 


(control- 


-R) 


23 - 


DC 3 


(control- 


-S) 


24 - 


DC 4 


(control- 


-T> 


25 - 


NAK 


( control- 


-U) 


26 - 


SYN 


(control- 


-V) 


27 - 


ETB 


(control- 


-W) 


30 - 


CAN 


(control- 


-X) 


31 - 


EM 


(control- 


-Y) 


32 - 


SUB 


(control-^ 


-2) 


33 - 


ESC 






34 - 


FS 






35 - 


GS 






36 - 


RS 






37 - 


US 
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013042 010546 



004737 
103005 
004737 
112705 
000433 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 013044 

14 013050 

15 013052 

16 013056 

17 013062 
IS 

19 
20 
21 

22 013064 

23 013072 

24 013074 

25 013076 

26 013102 

27 013106 

28 013112 
29 

30 
31 

32 013114 

33 013120 

34 013124 

35 013132 

36 013134 

37 013142 

38 013144 

39 013146 

40 013152 
41 

42 
43 

44 013156 

45 013164 

46 013172 

47 013174 



. SBTTL ICPCR — Carriage-return processing 

Process Carriage-return character. 

Inputs: 
Rl ~ Virtual line index number. 
R5 = Current input character. 

ICPCR: MOV R5, -<SP> 

See if me are in single-character activation mode 



017362' 

016300' 
OOOOOOG 



CALL 


SLCHK 


BCC 


1* 


CALL 


STRACT 


MOVE 


#LF, R5 


BR 


3* 



iAre we in single-char activation mode? 

; Br if not 

i Pass carriage return to program 

; and follow with line feed 



We Bre not in single-character activation mode. 
See if ODT is running. 



032761 
001410 
010500 
004737 
012700 
004737 
000417 



004737 
112705 
032761 
001004 
032761 
001003 
010500 
004737 
004737 



042761 
042761 
012605 
000207 



OOOOOOG OOOOOOG 1*: 



017140' 
OOOOOOG 
017144' 



BIT 


#*ODTM 


BEQ 


4* 


MOV 


R5, RO 


CALL 


ECHO 


MOV 


#LF, RO 


CALL 


ECHOl 


BR 


3* 



#*ODTMD. LSW4<R1 ); Is ODT in control? 



i Br if not 

> Get the CR character 

i Echo CR 

J Get LP character 

;Echo LP 

J Store CR as activation character 



We are not in ODT mode 



015764' 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 



017144' 
016300' 



4$: 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



2*: 
3*: 

9*: 



CALL 

MOVE 

BIT 

BNE 

BIT 

BNE 

MOV 

CALL 

CALL 

Finished 



INCHR 

#LF, R5 

#*DBGMD> LSW6(R1> 

2* 

#*NOLF, LSW6<R1) 

3* 

R5, RO 

ECHOl 

STRACT 



Store and echo CR 

We will follow CR with LP 

Is a debug program running? 

Br if yes 

Are we suppressing LP echoing after CR? 

Br if yes 

Get character to echo 

Echo line-feed 

Store activation character 



BIC 
BIC 
MOV 
RETURN 



#*1CTLC* LSW5(R1 >i Say last character was not control-C 
#*lESCi LSW<R1 > iSay last char was not escape 
(SP)+, R5 



c 

i 
i 

€ 

c 

c 

i 

4 

t 
I 
I 
I 
i 
i 



TSTTY — TSX Terminal I/O routi 
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1 

2 

3 

4 

5 

6 

7 

8 

9 013176 010546 
10 
11 
12 

13 013200 

14 013206 
15 
16 
17 

18 013210 

19 013214 
20 
21 
22 
23 
24 01 
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. SBTTL ICPLF — Line-feed processing 

Process Line-feed input character. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 

ICPLF: MOV R5, -<SP) 

If lue are in "paper-tape" mode/ ignore line-feed characters. 



032761 OOOOOOG OOOOOOG 
001025 



004737 017504' 
103422 



BIT #*TAPE, LSW2(R1 ) i Are we in paper-tape mode? 
BNE 9* i Br if yes 

See if we are in single-character activation mode 



CALL 
BCS 



SCACHR 
9* 



; See if we ars in single-char activation mode 
i Br if yes 



25 01 

26 01 

27 01 

28 01 

29 01 

30 01 



31 01 
32 
33 
34 

35 01 

36 01 
37 
38 
39 

40 oi; 



3216 
3224 
3226 
3232 
3236 
3240 
3244 
3250 



3252 
3256 



3262 
3270 
3276 
43 013300 



41 01 

42 01 



032761 
001412 
112700 
004737 
110500 
004737 
004737 
000404 



112705 
004737 



042761 
042761 
012605 
000207 



OOOOOOG OOOOOOG 

OOOOOOG 
017140' 

017144' 
016300' 



We are not in single-character activation mode. 
See if we are in ODT mode. 

BIT #*DDTMD, LSW4<Rl>i Is ODT in control? 

BEQ 2* ; Br if not 

MOVB #CR, RO J Echo carriage return 

CALL ECHO 

MOVB R5i RO iGet line feed character 

CALL ECHOl iEcho line-feed 

CALL STRACT i Store line feed and activate 

BR 9* 

Treat line-feed exactly like carriage-return. 



OOOOOOG 
013042' 



OOOOOOG 
OOOOOOG 



2*: 



OOOOOOG 9*: 
OOOOOOG 



MOVB 
CALL 

Finished 

BIC 
BIC 
MOV 
RETURN 



#CR, R5 
ICPCR 



; Get CR character 

/Process the carriage-return 



#*1CTLC> LSW5(R1 )> Say last character was not control~C 
#*1ESC* LSW(R1 ) ; Say last char was not escape 
(SP)+,R5 
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I 
f 



1 

2 

3 

4 

5 

6 

7 

8 

9 013302 
10 013304 
11 
12 
13 

14 013306 

15 013314 
16 

17 
IS 

19 013316 

20 013324 

21 013332 

22 013340 

23 013344 

24 013346 

25 013352 

26 013356 
27 

28 
29 

30 013360 

31 013366 

32 013370 

33 013376 

34 013400 

35 013406 

36 013410 

37 013416 

38 013420 

39 013424 

40 013426 

41 013434 
42 

43 
44 

45 013436 

46 013444 

47 013450 
48 

49 
50 

51 013452 

52 013460 

53 013466 

54 013474 

55 013500 

56 013506 

57 013514 



010246 
010446 



032761 
001021 



052761 
042761 
042761 
004737 
103527 
004737 
004737 



032761 
001356 
032761 
001352 
032761 
001346 
032761 
001342 
016102 
001412 
032761 
001006 



052761 
105237 
000725 



042761 
016161 
016161 
005061 
016161 
016161 
016161 



. SBTTL ICPCTC — Control-C processing 

Process a control~C input character. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 



ICPCTC: MOV 
MOV 



R2, -(SP) 
R4, -<SP) 



0000000 OOOOOOG 



0000000 OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
017504' 

017216' 
016300' 



OOOOOOC OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



?*: 



OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOC 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



Determine if we have received 2 consecutive control-C characters. 

BIT #*1CTLC. LSW5<R1 ); Was last character control-C? 

BNE 2* ; Br if yes 

This is 1st control-C 

BIS #*1CTLC* LSW5<R1 )i Remember last char was control-C 

7*: BIC #*lESCi LSW<R1 ) i Say last char was not escape 

BIC #*RTCS. LSW9<R1 ) ; Say we are not receiving control sequence 

CALL SCACHR ; See if we are in single-char activation mode 

BCS 9* J Br if yes 

CALL ECOCTL iEcho "-^C" 

CALL STRACT i Store control-C as activation char 

BR 9* 

We received two consecutive control-C characters 

BIT #<$SUCF!*LOFCF>, LSW9<R1 )i Are we doing logon/logoff processing? 

BNE 7* » Br if yes — don't allow ctrl-C abort here 

BIT #*SCCA. LSW5<R1 ) i Suppressing control-C aborts for program? 

BNE 7* J Br if yes 

BIT #*NOIN, LSW3<R1> ; Special no-input flag set? 

BNE 7* J Br if yes 

i: BIT #*RFRSH* LSW4<R1 )» Is a window refresh being done now? 

BNE 7* ; Don't allow abort during refresh 

MOV LSCCA<R1)>R2 ;Did user do . SCCA EMT? 

BEQ 3* ;Br if not 

BIT #*DBGMD, LSW6<R1); Is debugger in control? 

BNE 3* i Br if yes — ignore .SCCA 

User did a .SCCA — Set flag to remember to tell him about ctrl-C's 

BIS #*SETCC, LSW4(R1 )> Remember to tell him later 

INCB DOSCHD ; Request a job scheduler cycle 

BR 7* 

User did not do a . SCCA so abort him 

BIC #<LCBITiSPCTTY>- LJSW<R1) i Clean out JSW 

MOV LINNXT<R1>,LINPNT(R1) ;Kill all input 

MOV LINNXT<R1),LSTACT(R1) 

CLR LINCNT<R1) 

MOV LINSIZ(R1),LINSPC(R1) 

MOV L0TSIZ<R1),L0TSPC<R1) ;Kill all output 

MOV L0TNXT(R1>> L0TPNT<R1) 



3*: 
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58 


013522 


005061 


OOOOOOG 




CLR 


LFWLIM<R1> 


59 


013526 


005061 


OOOOOOG 




CLR 


LAFSIZ(Rl) 


60 


013532 


042761 


OOOOOOG 


OOOOOOG 


BIC 


#*SLINI.LSW7(R1) 


61 


013540 


042761 


OOOOOOC 


OOOOOOG 


BIC 


#<*DODFR ! *GCECO> 


62 


013546 


016104 


OOOOOOG 




MOV 


LNPRIM<R1>,R4 


63 


013552 


042764 


OOOOOOG 


OOOOOOG 


BIC 


#*CTRLSiLSW3(R4) 


64 


013560 


004737 


017216' 




CALL 


ECOCTL 


65 


013564 


052761 


OOOOOOG 


OOOOOOG 


BIS 


#*CTRLC,LSW(R1) 


66 


013572 


052761 


OOOOOOG 


OOOOOOG 


BIS 


#*CFKIL. LSW6(R1) 


67 


013600 


042761 


OOOOOOG 


OOOOOOG 


BIC 


#*SUSPN, LSW<R1) 


68 


013606 


004737 


OOOOOOG 




CALL 


FORCEX 


69 


013612 


005061 


OOOOOOG 




CLR 


LACTIV<R1) 


70 
71 
72 


013616 


042761 


OOOOOOG 


OOOOOOG 


BIC 


#*1STCH. LSW3(R1> 










Finished 




73 














74 


013624 


012604 




9«: 


MOV 


<SP)+, R4 


75 


013626 


012602 






MOV 


(SP)+, R2 


76 


013630 


000207 






RETURN 





i No field luidth limit 

i No field width activation 

; Say SL must reinitialize for next 

#LSW3(R1) i Reset deferred echoing 

; Get primary job number 

; Reset control-S output suspension 

iEcho "-^C" 

; Set job abort flag 

; Set flag to abort all open 

; Clear job-suspended flag 

iForce execution of the job 

j Say no chars received yet 



1 ine 



command files 
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1 








2 








3 








4 








5 








6 








7 








8 








9 








10 


013632 


032761 


0000000 


11 


013640 


001405 




12 


013642 


032761 


0000000 


13 


013650 


001411 




14 


013652 


000404 




15 


013654 


032761 


OOOOOOC 


16 


013662 


001404 




17 


013664 


052761 


OOOOOOG 


18 


013672 


000402 




19 








20 








21 








22 


013674 


004737 


012432' 


23 








24 








25 








26 


013700 


000207 
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SBTTL ICPCTD — Control-D processing 



Process a Control-D character. 

This forces a debugger breakpoint if uie are running under the debugger. 



Inputs: 
Rl == Virtual line index number. 
R5 = Current input character. 



OOOOOOG ICPCTD: BIT 

BEQ 
OOOOOOG BIT 

BEQ 

BR 

BIT 

BEQ 

BIS 

BR 



OOOOOOG 2*: 
OOOOOOG 3$: 



#*INKMN, LSW4<Rl)i Are we running in TSKMON now? 

2* ;Br if not 

#«DBKMN, LSW9(R1) J Should ue debug TSKMON? 

1* I Br if not 

3* i Yes, go force breakpoint 

#*DEBUG!$CTRLD, LSW9<Ri); Is job running with the debugger? 

1* i Br if not 

#«DBGBkv, LSW9(R1); Set flag to force debug breakpoint 

9* 



We are not running with debugger* treat Ctrl-D like normal character 
1*: CALL REGCHR ; Store as regular character 

Finished 
9*: RETURN 



€ 
i 
€ 

i 
i 

€ 
I 



OOOOOOG 

OOOOOOG OOOOOOG 
016360' 
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1 
2 
3 
4 
5 
6 
7 

e 

9 013702 032761 

10 013710 001415 

11 013712 032761 

12 013720 001403 

13 013722 004737 

14 013726 000410 
15 

16 
17 

18 013730 010500 

19 013732 004737 

20 013736 004737 

21 013742 000402 
22 

23 
24 
25 
26 
27 
28 

29 013750 042761 

30 013756 042761 

31 013764 000207 
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. SBTTL ICPCTG — Control-G processing 

Process a Control-G (Bell) character. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 



OOOOOOG ICPCTG: BIT 

BEQ 
BIT 
BEQ 
CALL 
BR 



#SPCTTYj LJSW(R1 )i Is special character processing wanted? 

2* i Br if not 

#*CHACTi LSW5<R1 )* Is single character activation wanted? 

1* ; Br if not 

STRSNG i Store the character 

9* 



017140' 
016300' 



Special-TTY mode is set but not single character activation 

1*: liOV R5, RO i Get char to echo 

; Echo a bel 1 
; Store and activate 



MOV 


R5, RO 


CALL 


ECHO 


CALL 


STRACT 


BR 


9* 



013744 004737 012432' 



OOOOOOG 
OOOOOOG 



Normal character processing 
2*: CALL REGCHR 
Finished 



; Treat as regular character 



OOOOOOG 9*: 
OOOOOOG 



BIC #*1CTLC> LSW5<R1); Say last character was not control-C 
BIC #«1ESC, LSW<R1 ) i Say last char was not escape 
RETURN 



€ 
€ 
4 
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1 

2 










3 










4 










5 










6 










7 










8 










9 


013766 


032761 


OOOOOOG 


OOOOOOG 


10 


013774 


001022 






11 










12 










13 










14 


013776 


016161 


OOOOOOG 


OOOOOOG 


15 


014004 


016161 


OOOOOOG 


OOOOOOG 


16 


014012 


004737 


017216' 




17 


014016 


052761 


OOOOOOG 


OOOOOOG 


IS 


014024 


026127 


OOOOOOG 


OOOOOOG 


19 


014032 


001010 






20 


014034 


004737 


006000 ' 




21 


014040 


000405 






22 










23 










24 










25 


014042 


042761 


OOOOOOG 


OOOOOOG 


26 


014050 


004737 


017216' 




27 










28 










29 










30 


014054 


000207 







. SBTTL ICPCTO ™ Control-0 processing 
Process a Control-0 input character. 



; Inputs: 

i Rl = Virtual line index number. 
; R5 = Current input character. 
f 

ICPCTO: BIT #*CTRLO, LSW3(R1 ) J Is output currently suppressed? 
BNE 1* ; Br if yes (reenable it) 

i 

i Begin suppressing output 

> 

MOV LOTSIZ(R1).LOTSPC<R1) ; Empty output buffer 

MOV L0TNXT<R1>,L0TPNT<R1) 

CALL ECOCTL iEcho "-^O" 

BIS #*CTRLO> LSW3(Ri )/ Remember output is being suppressed 

CMP LSTATE<Ri), #S*OTWT ils job waiting for output space? 

BNE 2* ; Br if not 

CALL OTREGO > Reactivate the job 

BR 2* 



Reenable output 



1«: 



BIC 
CALL 



#*CTRLO» LSW3<R1 ); Remove output suppression 
ECOCTL iEcho "-^O" 



; Finished 
2*: RETURN 



I 

c 
I 
c 

i 
( 
( 
I 

€ 

i 
i 
€ 

i 

i 
i 
t 
I 
i 



i 
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1 
2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 



20 

21 
22 
23 
24 

25 O 

26 



14056 
14060 
14064 
14070 



14072 
14076 
14102 
14106 
14110 
14114 



14116 
14120 



. BBTTL ICPCTR — Control~R processing 

Process control-R input character. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 



010246 
004737 
004737 
103412 



004737 
016102 
004737 
103403 
004737 
000772 



012602 
000207 



OOOOOOG 
017504' 



ICPCTR: MOV 
CALL 
CALL 
BCS 



R2, -<SP) 
BRKPT 
SCACHR 
9* 



/Call TSEXEC for debugging breakpoint 
i Is job in single-char activation mode? 
; Br if yes 



Redisplay the current input line 



017216' 
OOOOOOG 
016420' 

017144' 



4$: 
1«: 



9*: 



CALL 


ECOCTL 


MOV 


LSTACT<R1),R2 


CALL 


FETCHR 


BCS 


9* 


CALL 


ECHOl 


BR 


1* 


Finished 




MOV 


(SP)+, R2 


RETURN 





iEcho "•"•R" 

> Point past last activation char 

i Get next char from TT input buffer 

> Br if no more characters 

iEcho the character 

iContinue printing line 
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1 

2 

3 

4 

5 

6 

7 

8 

9 014122 
10 014124 
11 
12 
13 

14 014126 

15 014134 
16 

17 
18 

19 014142 

20 014146 
21 
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. SBTTL ICPCTU — Control-U processing 

Process a Control-U character. 

Inputs: 
Ri = Virtual line index number. 
R5 = Current input character. 



< 
i 



0000000 
0000000 



017504 



22 
23 
24 
25 
26 



014150 
014156 
014164 



OOOOOOG 
OOOOOOG 



28 
29 

30 014166 

31 014174 
32 

33 
34 

35 014176 

36 014202 
37 

38 
39 

40 014204 

41 014212 

42 014214 

43 014220 

44 014224 

45 014230 

46 014234 

47 014236 

48 014240 

49 014246 

50 014250 

51 014256 

52 014260 

53 014262 
54 

55 
56 
57 014264 



010246 
010346 



042761 
042761 



004737 
103545 



042761 
032761 
001133 



032761 
001003 



004737 
000524 



032761 
001523 
116103 
042703 
116102 
042702 
160203 
003506 
126127 
001056 
032761 
001452 
005702 
001005 



112700 OOOOOOG 



ICPCTU; MOV 
MOV 



R2. -<SP) 
R3> -<SP) 



OOOOOOG 
OOOOOOG 



Remember that last character was not escape or controI-C 

BIC #$lCTLC,LSW5<Rl)i Last character was not control-C 
BIC #*1ESC, LSW<R1 ) iSa^ last char was not escape 

Determine if we are in single-character activation mode 



CALL 
BCS 



SCACHR 
27* 



; See if we are in single-char activation mode 

; Br if yes 



OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



We are not in sing ie-charactr activation mode 

BIC #*RBOUT. LSW3<R1); Reset rubout mode 

BIT #*DODFR, LSW3<R1 )i Doing deferred echoing? 

BNE 5* J Br if yes 

Determine if this is a scope type terminal 

BIT #*SCOPE, LSW2<R1 )i Is this a scope terminal? 
BNE 15* ; Br if yes 

Echo "'^U" for non-scope terminals 



017216' 



CALL 
BR 



ECOCTL 
5* 



;Echo "•'^U" 

; Go delete the characters 



Do line erase for scope terminals 



OOOOOOG OOOOOOG 15$: 

OOOOOOG 
177400 
OOOOOOG 
177400 



OOOOOOG 
OOOOOOC 



OOOOOOG 
OOOOOOG 



BIT 

BEQ 

MOVB 

BIC 

MOVB 

BIC 

SUB 

BLE 

CMPB 

BNE 

BIT 

BEQ 

TST 

BNE 



#«1STCH, LSW3<R1) 

27* 

LC0L<R1), R3 

#•'^0377, R3 

LINCUR(R1),R2 

#-X377, R2 

R2, R3 

5* 



; Any characters received yetT' 

; Br if not 

; Get current column position 

iKill sign extension 

i Get start of line position 

iKill sign extension 

; Get # of columns in field being erased 

; Br if nothing to erase 
LRBFIL(R1>,#SPACEj Is rubout filler char = space? 
8* i Br if not 

#VT52 !VT1 00 .'VT2007IVT2008! HAZEL, LTRMTP<R1) i Can we line erase? 
8* i Br if not 

R2 i Are we erasing entire line? 

10* i Br if not 



Going to start of line. Use carriage-return to get there. 

MOVB #CR. RO i Send carriage return to terminal 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



014270 
014274 



014276 
014302 
014306 



014310 
014314 
014320 
014326 
014330 
014334 
014340 
014342 
014346 
014352 
014354 
014360 
014362 
014364 
014370 
014372 
014376 
014402 



014404 
014410 
014416 
014420 
014424 
014430 
014434 
014436 
014442 
014446 
014452 



014454 
014460 



014462 
014464 
014466 



004737 
000405 



112700 
004737 
077303 



012703 
116100 
032760 
001014 
016100 
032700 
001007 
012703 
032700 
001002 
012703 
112300 
001434 
120027 
101402 
105361 
004737 
000766 



116102 
032761 
001402 
1 1 2702 
112700 
004737 
1 1 0200 
004737 
112700 
004737 
077314 



004737 
103375 



012603 
012602 
000207 



003156 



CALL 
BR 



PUTCH2 
11* 



Not going to start of line. Use backspaces to get to start of field. 



OOOOOOG 
017144' 



10*: MOVE #BKSPAC/RO 
12*: CALL ECHOl 
SOB R3, 12* 



Get backspace character 

Send backspace to terminal 

Send enough to get to start of field 



Use scope control sequence to erase the line 



014470' 
0000000 
OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 

014477' 
OOOOOOG 

014473' 



000037 

OOOOOOG 
003156' 



11*: 



13*: 



14*: 



MOV 


#ERV52, R3 


MOVE 


LNPRIM<Rn,R0 


BIT 


#*V52EM, LSWil 


BNE 


13* 


MOV 


LTRMTP<R1)>R0 


BIT 


#VT52, RO 


BNE 


13* 


MOV 


#ERHAZL. R3 


BIT 


#HAZEL, RO 


BNE 


13* 


MOV 


#ERV100, R3 


MOVE 


<R3)+, RO 


BEQ 


5* 


CMPB 


RO, #37 


BLOS 


14* 


DECB 


LCOL(Rl) 


CALL 


PUTCH2 


BR 


13* 



i Assume this is a VT52 terminal 



Br if yes 

Get terminal type code 

Is this a VT52 terminal? 

Br if yes 

Assume hazeltine terminal 

Is this a Hazeltine terminal? 

Br if yes 

Assume this is a VTIOO or VT200 

Get next char from control sequence 

Br if end reached 

Is this a control or printing character 

Br if control character 

Correct column counter if sending printing ch 

Send character to terminal 

Continue sending control sequence 



Kill all input characters by sending 
backspace-space-backspace. . . 



OOOOOOG 
OOOOOOG OOOOOOG 

000040 

OOOOOOG 

017144' 

017144' 
OOOOOOG 
017144' 



8*: 



9*: 



MOVB 

BIT 

BEQ 

MOVB 

MOVB 

CALL 

MOVB 

CALL 

MOVB 

CALL 

SOB 



LRBFIL<R1 )/ R2 ; Get rubout-f iller character 
#*DB0MD, LSW6<Rl)i Is debugger doing I/O now? 



9* 

# ' , R2 

#BKSPAC, RO 

ECHOl 

R2, RO 

ECHOl 

#BKSPAC>RO 

ECHOl 

R3, 9* 



; Br if not 

;Use blank for debugger rubout 

; Send backspace 

; Get rubout-f i Her character 

i Send filler character 

i Send backspace 



015672 



5*: 



; Loop on number of characters to kill 

Now delete characters from the input buffer 

iKill last character in the buffer 
; Loop if more left to kill 



>7*: 



CALL 


KILCHR 


BCC 


5* 


Finished 




MOV 


(SP>+, R3 


MOV 


( SP ) +, R2 


RETURN 





Terminal control sequences to erase a line. 



€ 
I 
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ICPCTU — Control-U processing 

000 ERV52: .BYTE ESC, 113, ; VT52 

113 ERVIOO: .BYTE ESC, 133, 1 13, j VTIOO and VT200 

000 ERHAZL: .BYTE 176,17,0 ;Hazeltine 
. EVEN 



115 








116 


014470 


OOOG 


113 


117 


014473 


OOOG 


133 




014476 


000 




118 


014477 


176 


017 


119 









( 



TSTTY - 
ICPCTX 



- TSX Terminal I/O routi 

— Control-X processing 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



25 
26 
27 
28 
29 
30 
31 



014502 
014510 
014512 
014520 
014522 
014526 



014530 
014532 
014536 
014542 



032761 
001415 
032761 
001403 
004737 
000410 



010500 
004737 
004737 
000402 



OOOOOOG 
0000000 
016360' 
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. SBTTL ICPCTX — Control-X processing 

Process a Control-X character. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 

OOOOOOG ICPCTX: BIT #SPCTTYi LJSW(Rl) i Is special character processing tuanted? 

BEQ 2* ; Br if not 

OOOOOOG BIT #*CHACT>LSW5(Rl)i Is single character activation wanted? 

BEQ 1« i Br if not 

CALL STRSNG i Store the character 

BR 9* 

Special-TTY mode is set but not single character activation 



1*: 



017216' 
016300' 



MOV 


R5, RO 


CALL 


ECOCTL 


CALL 


STRACT 


BR 


9* 



; Get char to echo 

;Echo"-^X" 

; Store the character and activate 



014544 004737 012432 



Normal character processing 
2*: CALL REGCHR 
Fini shed 



Treat as regular character 



014550 
014556 
014564 



042761 
042761 
000207 



OOOOOOG 
OOOOOOG 



OOOOOOG 9*: 
OOOOOOG 



BIC #*1CTLC, LSW5<Rl)i Say last character was not control-C 
BIC #*1ESC, LSW(R1 ) ; Say last char was not escape 
RETURN 



TSTTY ■ 
ICPCTZ 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 



014566 004737 017504' 

014572 103404 

014574 004737 017216' 

014600 004737 016300' 
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" Control-Z processing 

. SBTTL ICPCTZ — Control~Z processing 

i Process Control-Z character. 

; Inputs: 

; Rl =■ Virtual line index number. 

; R5 = Current input character. 



icpc- 


rZ: CALL 


SCACHR 




BCS 


9* 




CALL 


ECOCTL 




CALL 


STRACT 



014604 042761 0000000 OOOOOOG 9*: 
014612 042761 OOOOOOG OOOOOOG 
014620 000207 



; Are we in single character activation mode? 

; Br if yes 

iEcho "•'^Z" 

} Store character and activate 

Say last character was not escape or control-C 

BIC #*1CTLC, LSW5(Ri ); Say last character was not control-C 
BIC #*1ESC, LSW<R1 ) iSay last char was not escape 
RETURN 



TSTTY — TSX Terminal I/O routi 
ICPESC — Escape processing 



1 
2 
3 
4 
5 
6 
7 
8 
9 
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. SBTTL ICPESC — Escape processing 

Process an escape character. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 






014622 

10 014626 

11 014630 

12 014636 

13 014640 

14 014646 

15 014650 

16 014654 
17 

18 
19 

20 014656 

21 014662 

22 014666 

23 014672 
24 

25 
26 
27 

28 014674 

29 014700 
014704 
014712 

32 014714 

33 014720 

34 014726 

35 014730 

36 014734 
37 

38 
39 

40 014742 

41 014750 



004737 
103410 
032761 
001407 
032761 
001412 
004737 
000432 



112700 
004737 
004737 
000423 



017362' 
OOOOOOG 
0000000 
016360' 



OOOOOOG 
OOOOOOG 



ICPESC: CALL 
BCS 
BIT 
BEQ 
BIT 
BEQ 

4*: CALL 
BR 



SLCHK J See if SL should get escape 

4* ; Br if SL uiants characters 

#SPCTTY, LJSW<R1); Is job in special TTY mode? 

1* i Br if not 

#*CHACT/ LSW5<R1 )i Is single char activation enabled? 

2* ; Br if not 

STRSNO i Store and activate 

9* 



000044 

017140' 

016002' 



Escape and not single character activation 
1*: MOVB #'$, RO ; Echo "*" 

i Store escape as non-activation char 



Program is in special-T"IY mode but single character activation 
is not enabled. 



MOVB 


#'$, RO 


CALL 


ECHO 


CALL 


STRCHR 


BR 


9* 



30 
31 



1 1 2700 
004737 
032761 
001006 
004737 
052761 
000405 
004737 
042761 



042761 
000207 



000044 

017140' 

OOOOOOG 

016002' 
OOOOOOG 

016300' 
OOOOOOG 



OOOOOOG 



OOOOOOG 



OOOOOOG 



2*: MOVB 
CALL 
BIT 
BNE 
CALL 
BIS 
BR 

3*: CALL 
BIC 

Finished 



#'*» RO 

ECHO 

#*1ESC, LSW(Rl) 

3* 

STRCHR 

#*1ESC.LSW<R1) 

9* 

STRACT 

#*1ESC, LSW<R1) 



iEcho "*" 

iWas last character ESC? 

i Br if yes 

/Store the escape 

; Remember that last char is escape 

; Store escape and activate 
j Say last char uas not escape 



OOOOOOG OOOOOOG 9*: 



BIC 
RETURN 



#*1CTLC. LSW5(R1 ); Say last character uias not control-C 



TSTTY — TSX Terminal I/O routi 
ICPRUB — Rubout processing 



1 
2 
3 
4 
5 
6 
7 
8 
9 
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. SBTTL ICPRUB — Rubout processing 

Process a rubout character. 

Inputs: 
Rl = Virtual line number. 
R5 = Rubout character. 



014752 
10 014754 
11 
12 
13 

14 014756 

15 014764 
16 

17 
18 

19 014772 

20 014776 
21 

22 
23 

24 015000 

25 015006 

26 015010 

27 015016 

28 015020 

29 015026 
30 

31 
32 
33 

34 015030 

35 015036 

36 015040 

37 015044 

38 015050 

39 015056 

40 015062 

41 015064 

42 015070 
43 

44 
45 

46 015072 

47 015076 

48 015100 

49 015104 
50 

51 
52 
53 

54 015106 

55 015112 

56 015116 

57 015122 



010246 
010346 



042761 
042761 



004737 
103541 



032761 
001004 
032761 
001417 
032761 
001021 



ICPRUB: MOV 
MOV 



R2, -<SP) 
R3, -<SP) 



ooooooe 

OOOOOOG 



017504' 



OOOOOOG 
OOOOOOG 



Remember that last character was not control-C 

BIC #*1CTLC* LSW5<R1 ); Last character was not control-C 
BIC #*lESCi LSW<R1 ) i Say last char uias not escape 

See if ue are in single-character activation mode 



CALL 
BCS 



SCACHR 
2* 



;Are we in single-char activation mode 
i Br if yes 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



We are not in single character activation mode. 

BIT #*ECHO, LSW2<R1) i Is echoing turned on? 

BNE 12* > Br if yes 

BIT #*DBGMD, LSW6<R1); Is debugger in control? 

BEQ 30* ; Br if not 

12*: BIT #*SCDPE,LSW2<Ri); Scope type terminal? 

BNE 27* iBr if yes 



Rubout on non-scope terminal. 
Echo \xxx\ type rubout sequence. 



032761 
001007 
112700 
004737 
052761 
004737 
103507 
004737 
000504 



004737 
103501 
120027 
001044 



OOOOOOG OOOOOOG 



000134 
017144' 
OOOOOOG 
015672' 

017144' 



OOOOOOG 



30*: 



BIT 


#*RBOUT, LSW3<R1) 


BNE 


30* 


MOVB 


#'\,R0 


CALL 


ECHOl 


BIS 


#*RBOUT, LSW3<R1) 


CALL 


KILCHR 


BCS 


2* 


CALL 


ECHOl 


BR 


2* 



Are me already doing rubout sequence? 

Br if yes 

Get backslash to begin rubout sequence 

Echo "\" 

Say me have started rubout sequence 

Delete one character from buffer 

Br if no char to delete 

Echo deleted char 



Do backspace editing for scope type terminals 



015672' 
OOOOOOG 



?7*: 



CALL 


KILCHR 


BCS 


2* 


CMPB 


RO, #TAB 


BNE 


10* 



i Delete one character from buffer 

j Br if no character was left to delete 

;Did we delete a tab character? 



116103 OOOOOOG 

042703 177400 

016102 OOOOOOG 

004737 016420' 



We just deleted a tab character. 
Do correct backspacing. 

MOVB LINCUR<R1 ), R3 i Position of start of line 

BIC #-^0377, R3 ;Kill sign extension 

MOV LSTACT<R1 )> R2 ; Start of input string 

3*: CALL FETCHR ; Get next char from TT input buffer 



c 
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58 


015126 


103417 




59 


015130 


120027 


OOOOOOG 


60 


015134 


001005 




61 


015136 


062703 


000010 


62 


015142 


042703 


000007 


63 


015146 


000765 




64 


015150 


120027 


OOOOOOG 


65 


015154 


001002 




66 


015156 


005303 




67 


015160 


000760 




68 


015162 


005203 




69 


015164 


000756 




70 


015166 


010302 




71 


015170 


062702 


000010 


72 


015174 


042702 


000007 


73 


015200 


160302 




74 


015202 


012700 


OOOOOOG 


75 


015206 


004737 


017144' 


76 


015212 


077203 




77 


015214 


000432 




78 








79 








SO 








81 


015216 


120027 


OOOOOOG 


82 


015222 


001005 




83 


015224 


112700 


OOOOOOG 


84 


015230 


004737 


017144' 


85 


015234 


000422 




86 








87 








88 








89 








90 


015236 


1 1 2700 


OOOOOOG 


91 


015242 


004737 


017144' 


92 


015246 


116100 


OOOOOOG 


93 


015252 


032761 


OOOOOOG OOOOOOG 


94 


015260 


001402 




95 


015262 


112700 


000040 


96 


015266 


004737 


017144' 


97 


015272 


112700 


OOOOOOG 


98 


015276 


004737 


017144' 


99 








100 








101 








102 


015302 


012603 




103 


015304 


012602 




104 


015306 


000207 





7*: 

5*: 
6$: 



9*: 



BCS 


6« 


CMPB 


RO, #TAB 


BNE 


7* 


ADD 


#8. , R3 


BIC 


#7, R3 


BR 


3* 


CMPB 


RO, #BKSPAC 


BNE 


5* 


DEC 


R3 


BR 


3* 


INC 


R3 


BR 


3* 


MOV 


R3, R2 


ADD 


#8. , R2 


BIC 


#7, R2 


SUB 


R3, R2 


MOV 


#BKSPAC, RO 


CALL 


ECHOl 


SOB 


R2, 9* 


BR 


2* 



j Br if no more characters 

i Is character a tab7' 

i Br if not 

; Calculate spaces over it 



j Was character backspace? 

; Br if not 

iBackup cursor position 

(Advance cursor for normal character 

; Save position in front of last tab 
iCalc position after tab 

jCalc number of backspace needed 

J Noui backspace cursor 

; Backspace over tab columns 



Check for rubout of backspace character 



10*: 



CMPB 


RO, #BKSPAC 


BNE 


11$ 


MOVE 


#SPACE, RO 


CALL 


ECHOl 


BR 


2* 



; Is deleted character a backspace? 

; Br if not 

iOutput a space to kill the backspace 



Rubout of regular character. 
Echo backspace-space-backspace 



11*: 



13*: 



MOVE 

CALL 

MOVB 

BIT 

BEQ 

MOVB 

CALL 

MOVB 

CALL 



Finished 



2*: 



MOV 
MOV 
RETURN 



#BKSPAC; RO iEcho backspace 

ECHOl 

LRBFIL<R1>. RO ; Get rubout-f i Her character 

#*DBGMD, LSW6<R1 )J Is a debugger running? 

13* i Br if not 

#' , RO /Use space for debugger rubout 

ECHOl /Echo rubout-f iller character 

#BKSPAC, RO ; Nouj echo backspace 

ECHOl 



<SP)+, R3 
(SP>+, R2 



000033 

OOOOOOG 
OOOOOOG 

000233 

000217 



TSTTY — TSX Terminal I/O routi 
CKVTAC — Check for VTxx escape- 

1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 015310 
15 
16 
17 
18 

19 015310 

20 015314 

21 015316 

22 015324 

23 015332 

24 015334 

25 015340 

26 015342 

27 015346 
28 
29 
30 

31 015350 

32 015356 
33 
34 
35 

36 015360 

37 015366 
38 
39 
40 
41 

42 015370 120527 

43 015374 103424 

44 015376 120527 

45 015402 101010 

46 015404 120527 

47 015410 001013 

48 015412 032761 

49 015420 001407 

50 015422 000411 

51 015424 120527 

52 015430 103406 

53 015432 120527 000176 

54 015436 101003 
55 

56 
57 
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SBTTL CKVTAC 



Check for VTxx escape-letter activation 



120527 
001007 
052761 
052761 
000450 
120527 
001403 
120527 
001004 



052761 
000433 



032761 
001453 



OOOOOOG 
OOOOOOG 



We are activating on VTxx escape-letter sequences. 
See if this is one and we should activate. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 

Outputs: 
C-flag cleared ==> Character was totally processed here. 
C-fiag set ==> Character was not processed by us. 

CKVTAC: 

See if this character is ESC, CSI, or SS3 which starts a terminal 
control sequence. 

Is character ESC? 
Br if not 

Remember last char was an escape 
Say we are receiving a control sequence 
Char is part of sequence 
1*: CMPB R5, #233 ;Is character CSI? 

Br if yes 
Is character SS3? 
Br if not 

This character begins a new control sequence 



CMPB 


R5, #33 


BNE 


1$ 


BIS 


#*1ESC,LSW<R1) 


BIS 


#*RTCS, LSW9<R1) 


BR 


15* 


CMPB 


R5, #233 


BEQ 


14* 


CMPB 


R5, #217 


BNE 


2* 



OOOOOOG OOOOOOG 14*: 



BIS #*RTCS, LSW9<R1 ) i Say we are receiving a control sequence 
BR 3* > Go store the character 



OOOOOOG OOOOOOG 2*: 



000101 



000132 



000117 



OOOOOOG OOOOOOG 



000141 



7*: 



See if this character is part of a terminal control sequence 

BIT #*RTCS, LSW9(R1 ) ; Are we currently receiving a control seq? 
BEQ 8* ) Br if not 

We are currently receiving a terminal control sequence. 
See if this character terminates the sequence. 

i Is this a upper-case letter? 
; Br if not 

Br if not upper-case letter 

Letter 0? 

Br if not 

Was last character ESC?* 

Br if not 

ESC is equivalent to SS3 

Is this a lower-case letter? 

Br if not 

Lower case letter or '^ 

Br if not 

This character terminates the control sequence 



CMPB 


R5, #'A 


BLO 


3* 


CMPB 


R5,#'2 


BHI 


7* 


CMPB 


R5,#'0 


BNE 


4* 


BIT 


#«1ESC, LSW<R1) 


BEQ 


4* 


BR 


3* 


CMPB 


R5, #141 


BLO 


3* 


CMPB 


R5, #176 


BHI 


3* 



TSTTY — TSX Terminal I/O routi 
CKVTAC — Check for VTxx escape- 
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58 01 
59 
60 
61 

62 01 

63 01 

64 01 

65 01 

66 01 

67 01 

68 01 

69 01 

70 01 

71 01 

72 01 

73 01 
74 

75 

76 

77 01 

78 

79 

SO 

81 01 



5440 042761 0000000 OOOOOOG 4*: BIG #*RTCSi LSW9<R1 ) i Say no longer receiving control sequence 

This character is part of control sequence — Pass to program 



5446 
5454 
5456 
5462 
5466 
5470 
5476 
5500 
5504 
5506 
5512 
5514 



042761 
010546 
012705 
004737 
012605 
032761 
001403 
004737 
000402 
004737 
000241 
000401 



5516 000261 



5520 000207 



OOOOOOG 

OOOOOOG 
016002' 



OOOOOOG 3*: 
15*: 



OOOOOOG OOOOOOG 

016002' 

016300' 



5«: 

6*: 



BIG #*lESCi LSW(R1 ) ; Say last char was not escape 

MOV R5i-(SP) ; Save the character 

MOV #ESGFLG/ R5 ; Get char that says escape sequence follows 

CALL STRGHR ; Store flag character 

MOV (SP)+, R5 {Recover real character 

BIT #*RTCS> LSW9<R1 > i Have we terminated the sequence? 

BEQ 5* i Br if yes 

CALL STRCHR i Store char that is part of sequence 

BR 6$ 

CALL STRACT i Store char as activation character 

CLG i Say we finished processing the character 

BR 9* 



This character is not part of a control sequence 
8*: SEC ; Signal char is not part of sequence 

Fini shed 
9$: RETURN 
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2 






3 






4 






5 






6 






7 






S 






9 






10 






11 






12 015522 


032761 


OOOOOOG OOOOOOG ( 


13 015530 


001417 




14 






15 






16 






17 






IB 015532 


120027 


000054 


19 015536 


001414 




20 015540 


120027 


000044 


21 015544 


001411 




22 015546 


120027 


000073 


23 015552 


001406 




24 015554 


120027 


000060 


25 015560 


103405 




26 015562 


120027 


000071 


27 015566 


101002 




28 




J 


29 




> 


30 




i 


31 015570 


000241 


. 


32 015572 


000207 




33 




J 


34 




i 


35 




i 


36 015574 


000261 


r 


37 015576 


000207 





. SBTTL CHKODT — Check for ODT activation characters 

CHKODT is called to determine whether ODT character 

activation is desired and whether the character in RO 

is an ODT activation character. 

When called RO must contain the character to be tested 

and Rl must contain the user index number. 

On return the c-flag is set if the character is an 

ODT activation character. 

All registers are preserved. 



BEQ 



#*ODTMD, LSW4<Rl)i ODT ACTIVATION DESIRED? 
1* i BRANCH IF NOT 



User does want odt activation. 
Is this an ODT activation char? 



CMPB 


RO, #', 


BEQ 


1$ 


CMPB 


RO, #'* 


BEQ 


1* 


CMPB 


RO, #'; 


BEQ 


1* 


CMPB 


RO, #'0 


BLO 


2* 


CMPB 


RO, #'9 


BHI 


2* 



1*: 



!*: 



Not activation character. 

CLC 
RETURN 

Got activation char. 
RETURN 



; DON'T ACTIVATE ON ', 

iOR '*' 

; OR ' i ' 

i IS THIS A DIGIT? 

; BRANCH IF NOT DIGIT 

i BRANCH IF NOT DIGIT 
} CLEAR C-FLAG 



i SET C~FLAG 



TSTTY — TSX Terminal I/O routi MACRO 
INFIN — TT input wait completed 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 015600 010246 
11 
12 
13 
14 01 



15 01 

16 01 

17 01 

18 01 
19 
20 

21 

22 01 

23 01 

24 01 
25 
26 
27 
28 
29 
30 

31 
32 



5602 
5606 
5610 
5614 
5616 



5622 
5626 
5630 



004737 
103003 
012700 
000402 
012700 



017362' 



OOOOOOG 



0000000 



016102 OOOOOOG 

020200 

101416 



01 
01 



5632 
5636 
5640 
5644 



020227 OOOOOOG 

001003 

005061 OOOOOOG 

000406 



,5646 
,5652 



020227 OOOOOOG 
103005 



33 oi: 

34 01! 
35 
36 
37 
38 

39 01! 

40 01! 
41 
42 
43 
44 

45 Oil 

46 01! 
47 

48 

49 

50 015662 004737 OOOOOOG 

51 

52 

53 

54 01! 

55 01! 



.5654 
,5660 



005761 OOOOOOG 
001402 
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. S13TTL INFIN — TT input wait completed 

INFIN — Routine to add the user whose line index # is 
in Rl to the end of the TTFN queue if the user is 
currently waiting for input. 

Inputs: 
Rl = Virtual line number of job being activated. 

INFIN: MOV R2, -(SP) 

Determine which state to put job in 

; Is program doing single character activation? 

} Br if not 

; If yes> put job in special high-prio state 

^*: MOV #S*TTFN* RO ; Put user in normal input-done state 

If job is already in at least this high a priority state* leave it alone 

3$: MOV LSTATE(R1 )» R2 > Get job's current execution state 

CMP R2j RO i Is job already at that high a priority? 

BLOS 9* J Br if yes — Don't change its priority 

Job's current execution priority is lower than that associated 
with receiving an activation character. 

If job is currently waiting for an activation character* boost its 
priority to get it running again. 



CALL 


SLCHK 


BCC 


2* 


MOV 


#S*TTSC* RO 


BR 


3$ 


MOV 


#S«TTFN* RO 



CMP R2, #S*INWT 

BNE 4* 

CLR LRDTIM(Rl) 

BR 1* 



; Is job waiting for TT input? 

i Br if not 

; Clear TT read time-out counter 

j Go boost priority of job to get it running 



Job is not waiting for TT input. 

If job is in any other wait state, leave it alone. 



4*: CMP R2, #S**RUN 
BHIS 9* 



; Is job in a wait state? 

; Br if yes — Leave it alone 



Job is not in a wait state. 

If job is still classified as "interactive", give it a prio boost. 



.5666 
,5670 



012602 
000207 



TST LITIME(Rl) 

BEQ 9* 

Boost priority of job 

1*: CALL ENQTL 

Fini shed 

9$: MOV (SP)+, R2 
RETURN 



i Is job still interactive? 
j Br if not 



i Requeue job at tail of high-prio queue 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 



. SBTTL KILCHR 



Delete a character from input buffer 



015672 010246 
015674 010346 



015676 005761 
015702 001424 



OOOOOOG 



015704 016102 OOOOOOG 

015710 005302 

015712 020261 OOOOOOG 

015716 103003 

015720 016102 OOOOOOG 

015724 005302 

015726 010203 

015730 004737 016420' 



015734 032700 OOOOOOG 

015740 001005 

015742 010302 

015744 004737 016712' 



015750 000241 
015752 000401 



015754 000261 



015756 012603 
015760 012602 
015762 000207 



KILCHR is called to delete a character 
from the input buffer. 

Inputs: 
Rl — user index #. 

Outputs: 
The C-flag is set on attempt to delete activation char. 
RO = The character that was deleted. 



KILCHR; MOV 
MOV 



R2, -<SP) 
R3, -<SP) 



See if there are any characters in the TT input ring buffer 



TST LINCNTCRl) 
BEQ 3* 



; ANY CHARS IN BUFFER NOW? 
i IF NOT NOTHING TO DELETE 



1*: 



Locate the last character in the TT input buffer 

Get pointer past last char in buffer 
Point to last char in buffer 
Did we go past front of buffer? 
Br if not 

Get pointer past right end of buffer 
Get pointer to last char in buffer 
Save pointer to character being deleted 
Get the last character in the buffer 

Delete the last character unless it is an activation character 

Is this character an activation char? 
Br if yes 

Get pointer to character to delete 
Delete the character 

We successfully deleted a character 



MOV 


LINNXT<R1),R2 


DEC 


R2 


CMP 


R2, LINBUF(Rl) 


BHIS 


1* 


MOV 


LINEND<R1).R2 


DEC 


R2 


MOV 


R2, R3 


CALL 


FETCHR 



BIT 


#ACFLAG, RO 


BNE 


3* 


MOV 


R3, R2 


CALL 


DELCHR 



>*: 



BR 



9* 



i SAY CHAR WAS DELETED 
i Finished 



There are no characters to delete 



3*: SEC 




; Finished 




9*: MOV 


<SP)+. R3 


MOV 


<SP)+, R2 


RETURN 





Signal that there are no chars to delete 
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1 
2 
3 
4 
5 
6 

7 015764 004737 016002' 

8 015770 103403 

9 015772 010500 

10 015774 004737 017140' 

11 016000 000207 



. SBTTL INCHR — Store and echo a character 

INCHR is called to store and echo the 

input character in R5. 

the user's index # must be in Rl. 



NCHR: 


CALL 


STRCHR 




BCS 


1* 




MOV 


R5, RO 




CALL 


ECHO 


*: 


RETURN 





STORE THE CHARACTER 
BR IF INPUT BUFFER OVERFLOW 
GET CHARACTER INTO RO FOR ECHO 
ECHO THE CHARACTER 
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1 
2 
3 
4 
5 
6 
7 
8 
9 016002 

10 016004 

11 016006 
12 

13 
14 

15 016010 

16 016016 

17 016020 

18 016026 
19 

20 
21 

22 016034 

23 016040 

24 016044 

25 016046 

26 016052 

27 016054 

28 016062 

29 016066 

30 016070 

31 016074 

32 016076 

33 016102 

34 016104 

35 016110 
36 

37 
38 
39 

40 016112 

41 016120 

42 016124 

43 016126 

44 016130 

45 016134 

46 016136 

47 016142 

48 016146 
49 

50 
51 

52 016154 

53 016156 
54 

55 
56 
57 016162 



010046 
010246 
010346 



032761 
001006 
052761 
116161 



016103 
020327 
103022 
005761 
001403 
052761 
020327 
103011 
020327 
101470 
120527 
001403 
032705 
001462 



016102 
010203 
005203 
020361 
103402 
016103 
010361 



010500 
004737 



. SBTTL STRCHR — Store a character into TT buffer 

STRCHR is called to store the character 

in R5 into the input buffer. 

The C~flag is set if the buffer overflows. 

Rl = User index number. 

All registers are preserved. 



STRCHR: MOV 
MOV 
MOV 



RO, -<SP) 
R2, -<SP) 
R3, -(SP) 



OOOOOOC OOOOOOG 



0000000 
OOOOOOG 



OOOOOOG 
000012 

OOOOOOG 

OOOOOOG 
000006 

000002 

OOOOOOG 

OOOOOOG 



OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



016562 



OOOOOOG 
OOOOOOG 



Keep track of cursor position of 1st character on the line 

BIT #<*1STCH!*D0DFR>, LSW3(R1); 1ST CHAR AFTER ACTIVATION? 

BNE 4* i BRANCH IF NOT FIRST 

BIS #*1STCH, LSW3(R1);SAY WE'VE GOT A CHAR 

MOVB LC0L<R1),LINCUR<R1);SAVE CURSOR POSITION 

See if buffer is about to overflow 



4*: MOV LINSPC<R1),R3 ; Get # free bytes in TT input ring buffer 

Got at least 10 free bytes? 
Br if yes 

Gotten an activation char yet? 
Br if not 
OOOOOOG BIS #*XST0P,LSW6<Rl)i Don't move any more chars out of silo 

8*: CMP R3, #6. * Got at least 6 bytes left? 

Br if yes — accept the character 

Is the buffer as full as uie will allow? 

Br if yes — Discard the character 

Is this a carriage return? 

Br if yes — accept it 

Is this an activation character? 

Br if not — Reserve last 4 bytes for act chr 

Determine position where char is to be stored in input ring buffer 
and update pointer to next free position. 



MOV 


LINSPC<R1),R3 


CMP 


R3, #10. 


BHIS 


7* 


TST 


LACTIV(Rl) 


BEQ 


8$ 


BIS 


#*XST0P,LSW6<R1) 


CMP 


R3, #6. 


BHIS 


7* 


CMP 


R3, #2. 


BLOS 


5* 


CMPB 


R5, #CR 


BEG 


7* 


BIT 


#ACFLAG, R5 


BEQ 


5* 



7*: 



1*: 



DISABL 

MOV 

MOV 

INC 

CMP 

BLO 

MOV 

MOV 

ENABL 



LINNXT<R1).R2 

R2, R3 

R3 

R3, LINEND<R1) 

1* 

LINBUF(R1),R3 

R3,LINNXT<R1> 



Store character into buffer 



MOV 
CALL 



R5, RO 
INSCHR 



005361 OOOOOOG 



Update character counts. 
DEC LINSPC(R1> 



Disable interrupts 

Get pointer to next position in TT buffer 

Compute address of next char position 
Did we go past end of buffer? 
Br if not 

Wrap around to front of buffer 
Save pointer to where next char goes 
Enable interrupts 



J Get character to store 
> Store the character 



j Reduce free space count for buffer 



TSTTY — 
STRCHR - 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
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016166 005261 OOOOOOG 



016172 032705 OOOOOOG 

016176 001414 

016200 005261 

016204 016161 



OOOOOOG 
OOOOOOG OOOOOOG 



016212 032761 OOOOOOG OOOOOOG 

016220 001003 

016222 042761 OOOOOOG OOOOOOG 



016230 005761 OOOOOOG 

016234 001403 

016236 



016244 000241 

016246 012603 

016250 012602 

016252 012600 

016254 000207 



INC LINCNKRl) ; Count another char in input buffer 

Check for storing activation character. 

BIT #ACFLAG, R5 J IS THIS AN ACTIVATION CHAR? 

BEQ 3* i BRANCH IF NOT 

INC LACTIV<R1) J Count another pending activ char 

MOV LINNXT<R1),LSTACT(R1); REMEMBER POS OF CHAR 

BIT #*D0DFR,LSW3<R1); DOING DEFERED ECHOING? 

BNE 3* } BRANCH IF YES 

BIC #*lSTCH>LSW3(Ri)i SAY NO CHARS AFTER ACTIVATION 

See if we need to trigger a completion routine for TT input 

iDoes job want TT input compl routine? 

; Br if not 

i Trigger completion routine 



SIGNAL NO BUFFER OVERFLOW 



3*: TST 


LTTCR<R1) 


BEQ 


10* 


OCALL 


TTCPL 


i 

; Finished 




> 

10*: CLC 




6«: MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


MOV 


<SP)+, RO 


RETURN 





Signal buffer overflow 



016256 052761 OOOOOOG OOOOOOG 5*: 

016264 012700 OOOOOOG 

016270 004737 017200' 

016274 000261 

016276 000763 



BIS #*TTERR, LSW4(R1); REMEMBER THAT AN ERROR OCCURED 

MOV #BELL, RO ; Get a bell character 

CALL ECH02 >Ring the bell to signal buffer nearly full 

SEC i SIGNAL OVERFLOW 

BR 6* 



4 
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r 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 



SBTTL STRACT 



Store activation character 







13 

14 

15 

16 

17 

18 
19 
20 
21 

22 O 

23 

24 
25 
26 
27 

28 

29 



16300 
16304 
16310 
16314 
16322 
16324 
16330 



16334 
16342 
16344 



16352 
16356 



STRACT is called to store an activation character 
which is contained in R5. The high order bit of 
the word (ACFLAG) is set on to indicate to GETCHR 
that the character is an activation character. 
After the character is stored the user is activated. 
When called* R5 must contain the character to be stored. 
Rl must contain the user index #. 
All registers are preserved. 



052705 
004737 
042705 
032761 
001004 
005061 
005061 



032761 
001403 
052761 



004737 
000207 



OOOOOOG 
016002' 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 



STRACT: BIS #ACFLAG, R5 

CALL STRCHR 

BIC #ACFLAG, R5 

BIT #*DBGMD, LSW6 < R 1 ) 

BNE 3* 

CLR LAFSIZ<Rl.i 

CLR LFWLIM(Rl) 



i SET ACTIVATION FLAG WITH CHAR 

} STORE THE CHARACTER 

; RESET THE FLAG 

; IS DEBUGGER DOING I/O NOW? 

;BR IF YES - DON'T RESET ACTIVATION 

i RESET FIELD-WIDTH ACTIVATION 

; CLEAR FIELD WIDTH LIMIT 



INFO 



See if we should begin deferred char echoing. 



OOOOOOG OOOOOOG 3*: 
OOOOOOG OOOOOOG 



BIT #*DEFER, LSW2(Rl)i DEFERRED MODE WANTED? 

BEQ 1$ ; BRANCH IF NOT 

BIS #*DODFR, LSW3(Rl)i BEGIN DEFERRED ECHOING 



015600' 



Activate the job 

1*: CALL INFIN 
RETURN 



; ACTIVATE THE USER 



TSTTY - 
STRSNG 
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— Store char with single-character input 



1 

2 

3 

4 

5 

6 

7 

B 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 



016360 010546 



016362 052705 OOOOOOG 
016366 004737 016002' 



016372 032761 OOOOOOG OOOOOOG 

016400 001403 

016402 052761 OOOOOOG OOOOOOG 



016410 004737 015600' 



016414 012605 
016416 000207 



. SBTTL STRSNG — Store char uith single-character input 

i —————————— ————————— ——— — ————————————— ————— ———————— —————— —————— ——- 

i STRSNG is called to store a character received while in 

; single character activation mode. 

> 

j Inputs: 

; Rl = Job index number. 

j R5 = Character received. 

> 

STRSNG: MOV R5, -(SP) ; Save input character 
■> Store the activation character 



BIS #ACFLA0, R5 
CALL STRCHR 



i Set activation flag with char 
i Store the character 



See if we need to begin deferred echo mode 

BIT #*DEFER, LSW2<Rl)i Deferred mode wanted? 

BEQ 4* > Branch if not 

BIS #*DODFR, LSW3<R1 >J Begin deferred echoing 



i Activate the job 
4*: CALL INFIN 
; Finished 



9*: 



MOV <SP)+, R5 

RETURN 



{Activate the job 



iRecover the original character 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

20 

29 

30 

31 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



016420 010446 
016422 010546 



016424 020261 
016430 001450 



0000000 



016432 010204 

016434 166104 OOOOOOG 

016440 073427 177775 

016444 072527 177763 

016450 042705 177770 

016454 066104 0000000 



016460 

016466 

016502 005000 

016504 152200 

016506 136514 000340' 

016512 001402 

016514 052700 OOOOOOG 

016520 

016526 



016534 020261 0000000 

016540 103402 

016542 016102 OOOOOOG 



016546 000241 
016550 000401 



. SBTTL FETCHR — Fetch next char from TT input ring buffer 

FETCHR is called to fetch the next character from the TT input 
ring buffer. 

Inputs: 
Rl ~ Line index number. 
R2 = Pointer to character in TT input ring buffer. 

Outputs: 
C-flag cleared ==> A char was gotten. 

C-flag set ==> No more chars in TT input ring buffer. 
RO = Character gotten (if C-flag cleared). 

The ACFLAG flag is set in RO if the char is an activation char. 
R2 = Updated to point to next character. 



FETCHR: MOV 
MOV 



R4, -<SP) 
R5, -<SP) 



See if there is another character in the ring buffer 



CMP R2, LINNXT<R1> 
BEQ e* 



j Are there any more chars in the buffer? 
; Br if not 



Compute index into bit vector that indicates if character is an 
activation character. 



Get pointer to character 

Get character index into buffer 

Get byte index into vector in R2 

Right justify bit-uii thin-by te index 

Clear possible sign extension from shift 

Get address of byte with flag bit 



MOV 


R2, R4 


SUB 


LINBUF(R1),R4 


ASHC 


#-3i R4 


ASH 


#-13. , R5 


BIC 


#•'^07, R5 


ADD 


LINEND<R1),R4 



Get next character from TT ring buffer. 



1$: 



DISABL 




TTMAP 




CLR 


RO 


BISB 


(R2)+, RO 


BITS 


BITMSK<R5), (R4) 


BEQ 


1$ 


BIS 


#ACFLAG, RO 


UNMAP 




ENABL 





; #* Disable interrupts ** 
i Map to TT buffer area 
{Initially clear RO 

; Get character without sign extension 
i Is this an activation character? 
; Br if not 

j Remember this is an activation character 
i Restore mapping 
•«•* Enable interrupts ** 



See if we need to wrap around to front of ring buffer 



3*: CMP R2, LINEND<R1) 
BLO 4* 
MOV LINBUF(R1)>R2 



We got a character 



4*: 



CLC 
BR 



9$ 



/Did we just go past end of ring buffer? 

; Br if not 

i Wrap around to front of ring buffer 



/Signal that we got a character 
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FETCHR — Fetch next char from TT input ring buffer 



58 

59 

60 016552 000261 

61 

62 

63 

64 016554 012605 

65 016556 012604 

66 016560 000207 



■> There are no more characters in the buffer 

8*: SEC i Signal that there are no more characters 

Finished 

9*: MOV (SP)+, R5 
MOV (SP)+. R4 
RETURN 



TSTTY — TSX Terminal I/O routi 
INSCHR — Insert character into 

1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
U 
12 
13 
14 

15 016562 

16 016564 
17 
18 
19 

20 016566 

21 016570 

22 016574 

23 016600 

24 016604 

25 016610 

26 016614 
27 
28 
29 

30 016620 

31 016626 

32 016642 

33 016644 

34 016646 

35 016652 001401 

36 016654 150514 

37 016656 

38 016664 
39 

40 
41 

42 016672 020261 OOOOOOG 

43 016676 103402 

44 016700 016102 OOOOOOG 
45 

46 
47 

48 016704 

49 016706 

50 016710 
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010446 
010546 



010204 
166104 
073427 
072527 
042705 
116505 
066104 



OOOOOOG 

177775 

177763 

177770 

000340 ' 

OOOOOOG 



110022 
140514 
032700 OOOOOOG 



012605 
012604 
000207 



. SBTTL INSCHR 



Insert character into TT input ring buffer 



This routine is called to insert a character into a specified position 
in the TT input-character buffer for a line. If there is an existing 
character in the position* it is overwritten. 

Inputs: 
RO = Character to be stored (optionally with ACFLAG flag). 
Rl " Line index number. 
R2 = Pointer to position in buffer mhere char is to be stored 



Outputs: 
R2 = Pointer to next character position in buffer. 



INSCHR: MOV 
MOV 



R4, -<SP) 
R5, ~<SP) 



Compute pointer into parallel bit vector with activation-character flags 



MOV R2, R4 

SUB LINBUF(Rl). R4 

ASHC #-3, R4 

ASH #-13. ,R5 

BIC #••^07, R 5 

MOVB BITMSK(R5)> R5 

ADD LINEND(R1),R4 



Get character buffer pointer 

Compute byte index into buffer 

Get byte index in R4 

Right justify bit-uii thin-by te index 

Clear possible sign extension 

Get bit mask 

Get address of byte with activation flag 



2*: 



Store character into buffer and set or clear the activation-character flag 

#•«• Disable interrupts ** 
Map to TT buffer area 
Store character into buffer 
Clear the activation-character flag 
Is this an activation character? 
Br if not 

Set the activation-character flag 
Restore mapping 
#* Enable interrupts ** 

See if we need to wrap around buffer pointer 

; Do we need to wrap around to buffer front? 

; Br if not 

; Wrap around to front of buffer 



DISABL 




TTMAP 




MOVB 


RO, (R2) + 


BICB 


R5, (R4) 


BIT 


#ACFLAG, RO 


BEQ 


2* 


BISB 


R5, (R4) 


UNMAP 




ENABL 





9*: 



CMP 


R2, LINEND<R1) 


BLD 


9* 


MOV 


LINBUF(R1),R2 


Finished 




MOV 


(SP)+.R5 


MOV 


(SP)+, R4 


RETURN 





c 

. c 

i 
i 
c 
c 
i 
I 

I 

( 

I 
I 

( 
i 
i 
i 
i 
i 
i 
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01 
01 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 

21 01 

22 01 

23 01 
24 

25 
26 

27 01 

28 01 

29 01 

30 01 
31 

32 
33 
34 
35 
36 
37 

38 01 

39 01 

40 01 

41 01 

42 01 

43 01 
44 
45 
46 

47 01 

48 01 

49 01 

50 01 

51 01 

52 01 

53 01 

54 01 
55 

56 
57 



6712 
6714 



6716 
6720 
6724 



6726 
6732 
6734 
6740 



6742 
6744 
6746 
6754 
6760 
6762 



6770 
6772 
6776 
7000 
7002 
7006 
7010 
7012 



010346 
010546 



010203 
004737 
103502 



020361 
001003 
010261 
000434 



010046 
010346 

020261 
001415 



010205 
004737 
010246 
010302 
004737 
010503 
012602 
000755 



. SBTTL DELCHR 



Delete character from TT input ring buffer 



DELCHR is called to remove a character from the TT input ring buffer. 
If there are other characters in the ring buffer in front of the one 
being deleted^ the ring buffer is compressed. 

Inputs: 
Rl = Line index number. 
R2 = Pointer to character to delete. 

Outputs: 
C-flag set ==> No more characters in buffer. 
RO = Deleted character (Same format as FETCHR). 
R2 == Pointer to character that follows deleted character. 



DELCHR: 



MOV 
MOV 



R3, -<SP) 
R5, -<SP) 



Get the character being deleted 



016420' 



MOV 

CALL 

BCS 



R2, R3 

FETCHR 

20* 



i Save original character pointer 
; Get character being deleted 
; Br if no character to delete 



See if we are deleting the 1st character in the buffer 



OOOOOOG 
OOOOOOG 



CMP R3, LINPNT<R1) 

BNE 3* 

MOV R2, LINPNT<R1) 

BR 8* 



i Is this the 1st char in the buffer? 
i Br if not 

i Set new pointer to 1st char in buffer 
j Go update buffer counts 



3«: 
4*: 



OOOOOOG 



We are not deleting the 1st character in the buffer. 

If we are deleting a character from the middle of the buffer* we move 

over any following characters to compress the free space. 

If we are deleting the last character in the buffer* no compression 

is necessary. 

Save character that is being deleted 
Save pointer to deleted char position 
i i #« Disable interrupts ** 



MOV 


RO, -(SP) 


MOV 


R3, ~(SP> 


DISABL 




CMP 


R2, LINNXT(Rl) 


BEQ 


5* 


ENABL 





016420' 



016562' 



; ; Are we at the end of the chars now? 

; i Br if yes 

** Enable interrupts ** 

Slide characters over in buffer to fill in gap left by deleted character 

Save pointer to following character 

Get next character in buffer 

Save updated pointer 

Get pointer to pos to store character 

Reinsert the character 

Advance insert pointer 

Get pointer to next char to move over 

Loop until all characters have been moved 

We have moved over all characters that followed the deleted one. 
Save new pointer to the end of the characters in the buffer. 



MOV 


R2, R5 


CALL 


FETCHR 


MOV 


R2, -(SP) 


MOV 


R3, R2 


CALL 


INSCHR 


MOV 


R5, R3 


MOV 


(SP)+, R2 


BR 


4* 



c 

i 
« 
c 

c 
i 
i 
i 
I 

i 
c 

€ 
i 
4 

i 
i 
i 

4 
4 

i 
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58 

59 017014 

60 017020 

61 017026 

62 017030 
63 

64 
65 

66 017032 

67 017036 

68 017042 

69 017046 

70 017050 
71 

72 
73 
74 

75 017054 

76 017062 

77 017064 

78 017072 

79 017074 
SO 017100 

81 017102 

82 017106 

83 017110 

84 017116 

85 017124 
86 

87 

88 

89 017130 

90 

91 

92 

93 017132 

94 017134 

95 017136 



010361 OOOOOOQ 

012602 
012600 



005261 OOOOOOG 

005361 OOOOOOG 

032700 ooooooe 

001402 

005361 OOOOOOQ 



5*: 



liov 


R3, LINNX 


ENABL 




MOV 


(SP)+, R2 


MOV 


<SP)+, RO 



032761 
001422 
026127 
101406 
032700 
001413 
005761 
001010 
042761 
052761 
005237 



000241 



012605 
012603 
000207 



Update character counters 

8*: INC LINSPC(Rl) 

DEC LINCNT<R1) 

BIT #ACFLAe, RO 

BEQ 19* 

DEC LACTIV<R1) 



Page 75-1 



; i Set new pointer to end of chars in buffer 
*■«• Enable interrupts *«• 

Get pointer to char folloiuing deleted one 
Get character being deleted 



i Another free char space in buffer 

; One less char in buffer 

i Is deleted char an activation char? 

i Br if not 

j One fetuer pending activation chars 



If we sent an XOFF to the terminal* 

send an XON if the input buffer is nearly empty. 



OOOOOOG OOOOOOG 

OOOOOOG 000017 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 



19*: 



17*: 



BIT 

BEQ 

CMP 

BLOS 

BIT 

BEQ 

TST 

BNE 

BIC 

BIS 

INC 



#*XSTDP. LSW6<R1) 

16* 

LINCNT(R1),#15. 

17* 

#ACFLAG> RO 

16* 

LACTIV<R1) 

16* 

#*XST0P>LSW6<R1) 



NEDCDI 
We deleted a character 
16*: CLC 
Fini shed 



Have we stopped input from silo buffer? 
Br if not 

Is input buffer almost empty? 
Br if yes 

Is this an activation character? 
Br if not 

Is this last activation char in buffer? 
Br if not 

Reenable input from silo 
#*NDICPj LSW10<R1 ) J Say line needs input character servicing 

> Say input character processing needed 



i Signal that we deleted a character 



20*: 



MOV 
MOV 
RETURN 



(SP)+,R5 
<SP)+, R3 
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1 

2 
3 
4 
5 
6 
7 
8 
9 

10 

11 

12 

13 

14 

15 

16 

17 
IS 

19 

20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 
44 
45 
46 
47 
48 
49 
50 
51 
52 

53 

54 

55 

56 

57 



SBTTL ECHO 



— Echo character to terminal 



17140 
17144 
17150 
17156 
17160 
17166 
17170 
17176 
17200 
17206 
17210 
17214 



17216 
17220 
17224 
17230 
17232 
17236 
17242 
17246 
17252 
17256 
17262 
17264 



17266 
17274 
17276 
17304 
17306 



004737 
004737 
032761 
001016 
032761 
001004 
032761 
001406 
026127 
002402 
004737 
000207 



010046 
112700 
004737 
010500 
052700 
004737 
1 1 2700 
004737 
112700 
004737 
012600 
000207 



032761 
001411 
042761 
010046 
112700 



Subroutine ECHO is called to echo the character in RO. 
User index must be in Rl. 

ECHOl does not check for rubout character echoing. 
ECH02 does not check for deferred character echoing. 
All registers are preserved. 



017266' 
017522' 
0000000 OOOOOOG 

0000000 OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 000017 

003156' 



ECHO: 


CALL 


RBEND 


ECHOl: 


CALL 


CVTLC 




BIT 


#«D0DFR>LSW3<R1) 




BNE 


ECHOR 




BIT 


#*ECHO, LSW2(R1) 




BNE 


ECH02 




BIT 


#*DBGMD, LSW6(R1) 




BEQ 


ECHOR 


ECH02: 


CMP 


L0TSPC(R1),#15. 




BLT 


ECHOR 




CALL 


PUTCH2 


ECHOR: 


RETURN 





. SBTTL ECOCTL 



TERMINATE ANY RUBOUT FIELD 

CONVERT LOWER CASE CHARS TO UPPER CASE 

ARE WE DEFERRING ECHO NOW? 

BRANCH IF WE ARE 

IS CHARACTER ECHOING WANTED? 

BR IF YES 

IS A DEBUGGER USING TERMINAL NOW? 

BR IF NOT 

ROOM TO ECHO CHAR? 

BRANCH IF NOT 

PUT CHAR IN OUTPUT BUFFER 



Echo a control character 



ECOCTL is called to echo certain control characters 
such as ctrl-C and ctrl~U. When called R5 must 
contain the control character. The control character 
is converted to a printing ascii char and printed 
following an up arrow and before a cr-lf. 
When called Rl must contain the line index, 
all registers are preserved. 



ECOCTL: 



000136 
017140' 

000100 

017144' 

OOOOOOG 

017144' 

OOOOOOG 

017144' 



MOV 

MOVB 

CALL 

MOV 

BIS 

CALL 

MOVB 

CALL 

MOVB 

CALL 

MOV 

RETURN 



RO, -<SP) 
#136, RO 
ECHO 
R5, RO 
#100, RO 
ECHOl 
#CR, RO 
ECHOl 
#LF, RO 
ECHOl 
(SP)+, RO 



;ECHO '■'-' 

GET CONTROL CHARACTER 
CONVERT TO PRINTING CHAR 
PRINT CONTROL CHAR 
PRINT CR-LF 



SBTTL RBEND — Terminate rubout sequence 



RBEND is called to terminate any current rubout field. 
If a rubout field is in progress RBEND puts out 
a back slash and terminates the rubout state. 
When called Rl must contain the user index #. 
All registers are preserved. 



OOOOOOG OOOOOOG RBEND: 



OOOOOOG OOOOOOG 



000134 



BIT #*RBOUT, LSW3<Rl)i ARE WE IN A RUBOUT FIELD? 

BEQ 1* ; BRANCH IF NOT 

BIC #*RBOUT, LSW3<R1); CLEAR RUBOUT STATE 

MOV RO, -<SP) 

MOVB #'\,R0 i OUTPUT BACK SLASH 



► 



I 
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RBEND — Terminate rubout sequence 

58 017312 004737 017144' CALL ECHO! 

59 017316 012600 MOV (SP)+, RO 

60 017320 000207 1*: RETURN 



I « 



€ 
C 



TSTTY ■ 
SCACHK 
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— Check for single-character activation 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 



. SBTTL SCACHK — Check for single-character activation 

i ■"* ■" — — — — — — — — — — — — — — — — — ——,— — — — — — — — ——— — — — — —.————— — — — ».«^—— ...——— —»,_—. 

; SCACHK is called to determine if this job is in single character 

; activation mode. 

i 

i Inputs: 

/ Rl = Job index number. 

> 

; Outputs: 

i C-flag set if in single character activation mode. 



017322 032761 0000000 OOOOOOG SCACHK: BIT 



017330 001412 

017332 032761 OOOOOOG OOOOOOG 

017340 001406 

017342 032761 OOOOOOG OOOOOOG 

017350 001002 



017352 000261 
017354 000401 



017356 000241 



017360 000207 



BEQ 
BIT 
BEQ 
BIT 
BNE 



#SPCTTY* LJSW<R1 ) J Does program want single char input? 

1* ; Br if not 

#*CHACT* LSW5<R1 ); Is single character activation enabled? 

1* i Br if not 

#*DBGIiDj LSW6<R1 ) j Is a debugger using terminal now? 

1* > Br if yes 



Job is in single character activation mode 



SEC 
BR 



J Signal that single char activation wanted 



9* 



; Job does not want single char activation 

1$: CLC ; Signal no single char activation 

i 

i Finished 

i 

9*: RETURN 



i 
i 

i 

c 

€ 

4 
i 
i 



TSTTY — TSX Terminal I/O routi 
SLCHK — Check for single line 



1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
H 
12 

13 

14 

15 

16 

17 

18 

19 
20 
21 
22 
23 
24 
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editor mode 

. SBTTL SLCHK — Check for single line editor mode 

SLCHK is called to determine if this job is in either single character 
activation mode or if the input is going to the single line editor. 

Inputs: 
Rl = Job index number 

Outputs: 
C-flag set if in single-charactei — activation or SL mode. 
All registers are preserved. 



17362 
17370 
17372 
17400 
17402 
17410 
17412 



032761 
001411 
032761 
001437 
032761 
001033 
000430 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG SLCHK: 

OOOOOOG 

OOOOOOG 



BIT #SPCTTY» LJSW<R1 )i Does program want single char input? 

BEQ 1* } Br if not 

BIT #*CHACT* LSW5(Rl)i Is single character activation enabled? 

BEQ 2* iBr if not 

BIT #*DBGMD> LSW6<R1 )i Is a debugger using terminal now? 

BNE 2* iBr if yes 

BR 3* i We are in single character mode 



We are not in single character activation mode. 
See if we are in Single Line Editor mode. 



25 

26 

27 
29 



30 

31 

32 

33 

34 

35 
36 
37 
38 

39 

40 
41 
42 
43 

44 
45 
46 
47 
48 



17414 
17422 
17424 
17432 
17434 
17442 
17444 
17452 
17454 
17462 
17464 
17472 



17474 
17476 



032761 
001426 
032761 
001022 
032761 
001016 
032761 
001012 
032761 
001004 
032761 
001402 



000261 
000401 



OOOOOOG 
OOOOOOG 
OOOOOOC 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



1*: 



BIT #*SLON, LSW7(R1> 

BEQ 2* 

BIT #DISSLE, LJSW<R1) 

BNE 2* 

BIT #<*ODTMD!*HITTY> 

BNE 2* 

BIT #*VTESC,LSW5<R1) 

BNE 2* 

BIT #*GTLIN>LSW4<R1> 

BNE 3* 

BIT #*SLTTY/ LSW7 ( R 1 ) 

BEQ 2* 



Is SL enabled for this line? 

Br if not 

Did program disable SL? 

Br if yes 

LSW4<Rl)iAre we in DDT or high efficiency? 

Br if yes 

VTxxx activation enabled? 

Br if yes 

Is a . GTLIN being done? 

Br if yes 

Is SL enabled for TTY input? 

Br if not 



We are in single line activation or single line editor mode. 



3$: 



SEC 
BR 



Signal single character mode 



9* 



17500 000241 



17502 000207 



We are not in single character mode. 
2*: CLC ; Signal not single character mode 

Finished 
9*: RETURN 



€ 

i 
I 

I 
c 
i 
i 

€ 

C 

c 
« 
i 
I 
I 
< 
I 
I 

4 

I 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 



017504 004737 017362' 
017510 103003 



017512 004737 016360' 
017516 000261 



017520 000207 



. SBTTL SCACHR — Handle single-character activation characters 

SCACHR is called to check to see if the program is in single-character 
activation mode. If yes then the current character is passed to the 
program as an activation character. 
If not then the carry-flag is cleared on return. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 

Outputs: 
C-flag set ~-> In single-char activation mode. Char processed. 
C-flag cleared ==> Not in single character activation mode. 



SCACHR: CALL SLCHK 
BCC 9* 



; Are ue in single-char activation mode? 

i Br if not 



We are in single-character activation mode. 

Pass the character to the program as an activation char. 



CALL 
SEC 

Finished 

9$: RETURN 



STRSNG 



j Store character and activate 

i Say character was processed by us 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 017522 

13 017530 

14 017532 

15 017540 
16 

17 
IB 

19 017542 

20 017544 

21 017550 

22 017554 

23 017556 

24 017562 

25 017564 

26 017570 

27 017572 



SBTTL CVTLC 



Convert lower-case chars to uppei — case 



032761 
001404 
032761 
001014 



010046 
042700 
020027 
002405 
020027 
101002 
042716 
012600 
000207 



CVTLC is called to see if TT input characters entered 
in lower case should be translated to upper case. 
When called* RO must contain the character to be tested. 
Rl must contain the user line index #. 

CVTLC checks to see if set-lc has been done and if the 
bit is set in the JSW allowing lower case characters, 
return* the resulting character is returned in RO. 



On 



All other registers are preserved. 



OOOOOOG OOOOOOG CVTLC: 
0000000 OOOOOOG 



BIT 
BEQ 
BIT 
BNE 



#*LC,LSW2<R1> 

1* 

#LCBIT, LJSW(Rl) 

2* 



WAS "SET TT LC" DONE? 
BR IF NOT 

IS LC-BIT SET IN JSW? 
BR IF YES (LC OK) 



Translate lower case to upper case 



1*: 



OOOOOOG 
000141 

000172 

000040 



3*: 
2$: 



MOV 


RO, -<SP) 


BIC 


#ACFLAG* RO 


CMP 


RO, #141 


BLT 


3* 


CMP 


RO, #172 


BHI 


3* 


BIC 


#40, <SP) 


MOV 


<SP)+, RO 


RETURN 





SAVE ORIGINAL CHARACTER VALUE 

CLEAR ACTIVATION FLAG 

LC< 'A') 

BR IF NOT LOWER-CASE LETTER 

LC< 'Z') 

BR IF NOT LOWER-CASE LETTER 

CONVERT LOWER-CASE LETTER TO UPPER-CASE 

GET POSSIBLY CONVERTED LETTER BACK TO RO 



TSTTY — 
SieWAT - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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. SBTTL SIGWAT 



Signal virtual line wait condition 



SIGWAT IS CALLED TO SIGNAL THE USER THAT ONE OF HIS 
VIRTUAL LINES IS ENTERING A WAIT CONDITION. 
IF THE LINE ENTERING THE WAIT STATE IS NOT THE ONE 
WHICH IS CURRENTLY ASSOCIATED WITH THE TERMINAL A BELL 
IS SENT TO THE USER'S TERMINAL. 

Inputs: 
Rl = Job index of job entering wait condition. 
All registers are preserved. 



017574 010046 
017576 010146 



SIGWAT: 



MOV 
MOV 



RO, -<SP> 
R 1 , - < SP ) 



017600 016100 OOOOOOG 
017604 026001 OOOOOOG 
017610 001415 



MOV 


LNPRIM<R1),R0 


CMP 


LNMAP(R0),R1 


BEQ 


9* 



017612 032761 
017620 001011 
017622 052761 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



Only signal if the job that is entering the wait state is not 
currently connected to the terminal. 

GET PRIMARY LINE # 

IS THE LINE CONNECTED TO TERM? 

IF YES THEN NO NEED TO SIGNAL 

If we have already signaled that job is in a wait state/ don't 
signal again until user reconnects to this job. 

BIT #*VBELL> LSW9<Rl)iHave we already signaled wait state? 

BNE 9* ;Br if yes 

BIS #«VBELL/ LSW9(R1.>; Set flag saying we have signaled 

Send bell to signal wait condition 



017630 016001 OOOOOOG 
017634 112700 OOOOOOG 
017640 004737 005756' 



017644 012601 
017646 012600 
017650 000207 



9«: 



MOV 


LNMAP<R0),R1 


MOVB 


#BELL, RO 


CALL 


TRYCHR 


Finished 




MOV 


(SP)+,R1 


MOV 


(SP)+, RO 


RETURN 





i GET CURRENTLY CONNECTED LINE # 
; SEND BELL AS SIGNAL CHARACTER 



. SBTTL SIGBRK 



Signal program that Break character was received 



SIGBRK is called to signal a program that a Break character was received. 
If the program has requested notification of Break character reception* 
an asynchronous completion routine request is queued for the program. 



Inputs: 
Rl = Virtual line number 



017652 010446 

017654 016104 

017660 001404 

017662 005061 

017666 004737 

017672 012604 

017674 000207 



OOOOOOG 

OOOOOOG 
OOOOOOG 



SIGBRK: MOV 
MOV 
BEQ 
CLR 
CALL 

1*: MOV 

RETURN 



R4, -(SP) 

LBRKCQ<R1),R4 

1* 

LBRKCQ(R1> 

QCOMPL 

(SP)+, R4 



DOES USER WANT NOTIFICATION OF BREAK? 

BR IF NOT 

SAY THAT BREAK QUEUE ELEMENT HAS BEEN USED UP 

QUEUE COMPLETION ROUTINE FOR THE JOB 



I 
I 
( 

i 
i 
i 
i 
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SIGBRK — Signal program that Break character was received 

58 000001 . END 

Errors detected: 

*»* Assembler statistics 

Work file reads: 

Work file writes: 

Size of work file: 10432 Words ( 41 Pages) 

Size of core pool: 18176 Words ( 71 Pages) 

Operating system: RT~11 

Elapsed time: 00:01:17.17 
, LP: TSTTY=DK: TSTTY/C/N: SYM 



I 

i 
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Cross reference table <CREF V05. 05) 



*1CTLC 


1-55 


51-21 


53-44 


54-40 


55-14 


*1ESC 


1-43 


50-79 


51-20 


53-45 


54-41 




63-36 


64-15 


65-21 


65-48 


65-62 


*1STCH 


1-48 


47-25 


55-70 


60-40 


70-15 


*8I3IT 


1-52 


12-31 








*ALTER 


1-95 


9-129 


9-139 






*AUTO 


1-34 


49-32 








*CCLRN 


1-76 


35-41 








*CFABT 


1-86 


9-120 


9-122 






*CFALL 


1-51 


39-75 


39-82 


41-17 


43-35 


*CFCCL 


1-87 


9-95 


43-12 






*CFDCC 


1-87 


9-30 


9-97 






*CFKIL 


1-87 


55-66 








*CFOPN 


1-51 


43-22 


43-25 


43-123 




*CFSOT 


1-54 


13-27 


39-54 


39-61 


39-68 


*CHACT 


1-44 


28-23 


28-30 


33-75 


34-11 


*CTRLC 


1-43 


12-22 


19-17 


33-14 


55-65 


*CTRLD 


1-40 


56-15 








*CTRLO 


1-48 


9-113 


13-34 


18-32 


58-9 


*CTRLS 


1-49 


55-63 








*CTRLW 


1-48 


50-77 


50-80 


50-B5 


50-87 


*DBGBK 


1-56 


56-17 








*DBGMD 


1-82 


7-22 


35-32 


38-25 


41-13 




64-93 


71-15 


76-15 


77-16 


78-17 


*DBKMN 


1-40 


56-12 








*DEAD 


1-57 


49-27 








*DEBUG 


1-56 


56-15 








*DEFER 


1-46 


25-49 


25-56 


71-22 


72-19 


*DETCH 


1-43 


13-21 


19-15 


19-17 


24-13 


«DILUP 


1-42 


49-19 








*DISCN 


1-42 


12-22 


19-17 


33-14 


33-36 


*DODFR 


1-49 


25-57 


35-12 


47-16 


47-54 


*DOOFF 


1-42 


7-19 


33-29 






*ECHO 


1-44 


25-5 


25-12 


35-51 


36-18 


*FLAGC 


1-54 


7-26 


7-28 


7-34 




*FORM 


1-45 


16-46 








*FORMO 


1-89 


2-18 








*GCECO 


1-49 


25-57 


35-14 


35-16 


36-6 


fGCESC 


1-49 


33-13 


33-95 


33-102 


38-12 


*GTLIN 


1-51 


9-24 


9-156 


33-49 


41-15 


*HITTY 


1-54 


6-37 


8-9 


8-20 


12-16 


*INKMN 


1-50 


9-56 


9-71 


9-143 


43-42 


*LC 


1-46 


25-31 


25-42 


80-12 




*LOFCF 


1-59 


7-17 


33-27 


43-36 


51-15 


*NDICP 


1-43 


46-18 


75-84 






*NOIN 


1-47 


7-21 


12-24 


43-38 


46-29 


*NOINT 


1-45 


33-58 


46-35 






*NOLF 


1-81 


30-19 


30-26 


38-23 


53-36 


*NOOUT 


1-46 


12-38 


20-74 


20-81 


34-41 


*NOVLN 


1-46 


25-24 








*NOWIN 


1-37 


17-17 


43-52 


43-102 




*NOWTT 


1-39 


6-17 


7-24 


28-37 




*NTGCC 


1-41 


9-39 


9-43 


9-99 




*ODTMD 


1-51 


33-45 


51-32 


53-22 


54-24 


*PWKEY 


1-37 


52-23 








*QUIET 


1-50 


9-104 


35-21 


35-49 


36-16 



55-19 
55-20 

70-17 



43-35 
57-11 



58-17 
50-91 
50-28 



26-10 

46-9 
55-61 

38-10 



47-24 

78-32 
28-16 
43-49 

55-30 

55-34 



66-12 
39-53 



57-29 
57-30 

70-68 



61-11 



58-25 



51-49 



27-13 



60-14 
60-15 



63-13 



51-63 



28-5 



78-28 

39-61 39-68 



61-29 
61-30 



62-16 
62-17 



63-40 
63-30 



64-14 
63-33 



77-14 



78-15 



53-34 



55-40 



60-92 



64-26 



28-14 



J9-13 



33-34 



46-7 



60-25 70-15 70-66 71-24 72-21 76-11 

64-24 76-13 

55-61 



33-45 33-85 50-57 78-28 
43-140 56-10 



€ 
€ 



i 
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Cross reference table (CREF V05. 05) 

*RBOUT 1-48 60-24 64-34 64-38 76-53 76-55 

*RBRK 1-34 49-53 50~15 50-18 

*RFRSH 1-34 55-36 . 

*RTCS 1-36 55-21 65-22 65-31 65-36 65-58 65-67 • 

*SCCA 1-34 35-38 43-51 43-96 43-99 55-32 

*SCOPE 1-44 60-30 64-28 

*SETCC 1-50 55-45 

*SLINI 1-63 55-60 

*SLON 1-38 33-43 78-24 



*SLTTY 1-38 33-51 78-34 

*SUCF 1-59 43-39 46-30 55-30 

*SUSPN 1-35 55-67 

*TAB 1-45 16-29 

*TAPE 1-86 30-5 30-12 54-13 

*TRNSP 1-47 12-50 25-64 

fTTERR 1-54 8-59 8-61 70-86 

*UCTLC 1-50 24-24 26-35 35-34 

*UKMON 1-58 9-58 

*V52EM 1-38 60-71 

*VBELL 1-35 81-26 81-28 

\ ^ *VTESC 1-55 23-17 23-24 29-38 33-47 33-100 47-40 50-64 78-30 

*XSTOP 1-86 46-15 46-17 48-21 70-27 75-75 75-83 

... VI 40-37 40-37 43-24 43-121 43-121 43-127 43-127 45-28 45-28 

- . . . V2 40-37 40-37 40-37# 40-37# 43-24 43-24# 43-121 43-121 43-121# 43-121# 43-127 43-127 



I * 43-127# 43-127# 45-28 45-28 45-28# 45-28# 

ABORT 1-94 45-33 
ACFLAG 1-69 24-43 24-45 27-39 27-42 29-34 33-78 35-6 38-17 47-47 68-34 70-34 



i 

€ 
i 



70-62 71-12 71-14 72-14 73-43 74-34 75-68 75-79 80-20 ^ 

AF*CCA 1-34 43-97 



AF*NPW 1-35 43-100 

AFCF 1-34 43-48* 43-95* 43-97 43-100 

ASKLIN 1-25 9-12# 

AUTSPD 1-36 49-34 

BELL 1-67 29-50 51-65 70-87 81-33 

BITMSK 1-175# 73-41 74-25 

BKSPAC 1-58 1-66 60-63 60-95 60-99 64-64 64-74 64-81 64-90 64-97 

BRKPT 1-87 59-10 

BUFCHR 1-21 1-26 17-24 18-12# 

CCVECT 21-35 22-4# 22-30 

CFACFL 1-34 42-15 42-39 

CFARG 1-40 40-37 43-121 43-127 45-28 

CFBLK 1-76 40-36* 40-37 43-117* 43-127 

CFBUF 1-63 40-37 40-49 43-127 

CFCHAN 1-63 40-37 40-37 43-24 43-24 43-121 43-121 43-127 43-127 

CFCHAR 39-26 39-34 40-1 5# 

CFEND 1-63 40-32 

CFHOLD 1-44 9-103* 39-19 39-21* 39-116* 43-18* 

CFIND 1-91 43-17 43-83* 

CFLAG 1-89 3-17 

CFLFL4 1-92 43-87 

CFNEST 1-91 43-29 43-132* 

CFPNT 1-61 9-100 9-111 9-118 9-127 13-29 25-71 40-31 40-45 40-52* 41-10 42-10* * 

42-33* 43-13 

CFPOP 40-44 43-6# 

CFPSAV 1-61 * 

CFSP 1-91 43-60 43-131* 

( 



€ 
i 

i 
i 
€ 
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Cross reference table <CREF V05. 05) 

CFSPND 1-69 9-48* 9~100* 9-152 9-155* 25-73* 25-81 25-84* 

CFSTOP 9-101 25-74 42-6# 43-34 

CFSTRT 9-154 25-83 42-29# 43-116 

CFTEST 7-15 27-16 29-18 35-4 35-43 35-47 36-14 39-14 41-10# 

CFTNO 41-11 41-14 41-18 41-21# 

CFTSTl 41-12 41-15# 

CHKABT 1-73 2-35 2-38 2-56 2-59 4-19 4-22 11-28 11-31 31-15 39-97 46-31 

CHKODT 51-34 66-12# 

CHNADR 1-90 2-15* 3-14 3-16* 3-33* 

CKCW 50-29 50-65 50-67 50-69 50-75# 

CKHIIN 50-50 50-57# 

CKICTL 50-88 50-90 50-101# 

CKSPAC 50-34 50-36 50-42# 

CKVTAC 50-70 65-14# 

CKVTES 50-43 50-58 50-64* 

CMDA 22-4 23-5# 

CMDB 1-28 22-5 23-17# 

CMDC 1-28 22-6 23-24# 

CMDD 22-7 24-5# 

CMDE 1-28 22-8 25-5# 

CMDF 1-28 22-9 25-12# 

CHDG 1-28 22-10 25-18# 

CMDH 1-28 22-11 25-24# 

CMDI 1-28 22-12 25-31# 

CMDJ 1-29 22-13 25-42# 

CMDK 1-29 22-14 25-49# 

CMDL 1-29 22-15 25-56# 

CMDM 1-29 22-16 25-64# 

CMDN 1-29 22-17 25-71# 

CMDO 1-29 22-18 25-81# 

CMDP 22-19 26-5# 

CMDQ 22-20 27-5# 

CMDR 1-29 22-21 28-5# 

CMOS 1-30 22-22 28-23# 

CMDT 1-30 22-23 28-30# 

CMDU 1-30 22-24 28-37# 

CMDV 22-25 29-5# 

CMDW 1-30 22-26 30-5# 

CMDX 1-30 22-27 30-12# 

CMDY 1-30 22-28 30-1 9# 

CMDZ 1-30 22-29 30-26# 

CORUSR 1-61 9-23 10-10 11-15 33-12 43-11 

CR 1-58 9-132 20-44 24-55 29-32 37-10 38-58 44-34 49-37 54-26 54-35 60-57 

70-32 76-38 

CS*EOF 1-89 2-15 3-14 3-16 3-33 

CSEMFO 1-155 1-166# 

CSEMID 1-153 1-164# 

CSEMIL 1-152 1-163# 

CSEMIS 1-157 1-168# 

CSEMIV 1-158 1-169# 

CSEMNF 1-156 1-1 67# 

CSEPRO 1-154 1-165# 

CSIERR 1-1 52# 10-36 

CSIMSG 1-25 10-34# 

CTLRTN 52-40 52-49# 

CTRLC 1-64 9-73 9-74 24-22 26-33 35-30 38-47 49-39 
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CTRLX 


1-64 


38-49 




















CTRLZ 


1-64 


1-89 


3-24 


9-69 


9-141 


38-45 












CURPRM 


1-63 


39-96* 


40-16 


40-23* 


40-27* 


43-79* 












CVTLC 


1-22 


33-77 


34-5 


47-44 


50-45 


76-10 


80-12# 










CXTRMN 


1-40 


9-60 


42-14 


42-38 


43-16 


43-142 












DELCHR 


1-22 


24-64 


29-47 


33-67 


68-37 


75-16# 












DELUAC 


24-15 


26-12 


26-19# 


















DFRREL 


7-29 


46-24 


47-9# 


















DISSLE 


1-40 


33-41 


78-26 


















DOCTLT 


1-38 


52-16 




















DOCTRL 


50-103 


52-10# 




















DOSCHD 


1-70 


2-33 


2-54 


4-17 


11-26 


55-46* 












DOSWIT 


1-36 


50-96 




















ECHO 


51-38 


51-51 


53-25 


54-27 


57-19 


63-21 


63-29 


69- 


-10 


76-9# 


76-34 


ECHOl 


53-27 


53-39 


54-29 


59-20 


60-64 


60-96 


60-98 


60- 


-100 


64-37 


64-41 




64-91 


64-96 


64-98 


76-10# 


76-37 


76-39 


76-41 


76- 


-58 






ECH02 


51-66 


70-88 


76-14 


76-17# 
















ECHOR 


76-12 


76-16 


76-18 


76-20# 
















ECOCTL 


55-24 


55-64 


58-16 


58-26 


59-16 


60-35 


61-19 


62- 


-11 


76-32# 




EMTADR 


1-94 


6-23 


45-31 


















EMTBLK 


1-88 


2-6 


2-9 


2-16 


2-50 


3-6 


3-9 


3- 


-19 


3-40 


4-5 




8-15 


8-18 


S-34 


S-37 


8-55 


8-67 


8-68 










EMTPS 


1-90 


3-17* 




















EMTXIT 


1-90 


4-26 


5-11 


6-42 


7-37 


8-10 


8-58 


8- 


-70 






ENQTL 


1-60 


32-7 


67-50 


















ERHAZL 


60-76 


60-118# 




















ERVIOO 


60-79 


60-117# 




















ERV52 


60-69 


60-1 16# 




















ESC 


1-68 


37-8 


38-40 


39-41 


60-116 


60-117 












ESCFLG 


1-70 


29-36 


33-98 


47-38 


65-64 














ESCHK 


12-40 


20-14# 




















ESCRLF 


20-44# 


37-24 


37-25 


















ESCTL 


20-34# 


37-21 




















ESESC 


20-60# 


37-23 




















ESFF 


20-52# 


37-22 




















ESHT 


20-66# 


37-26 




















ESRSl 


20-30 


20-40 


20-48 


20-56 


20-62 


20-70 


20~S1# 










ESRS2 


20-29 


20-35 


20-39 


20-47 


20-53 


20-61 


20-67 


20- 


-74# 






ESRTN 


20-37 


20-45 


20-55 


20-69 


20-75# 














ESUAC 


20-22# 


34-33 




















ESXIT 


20-77 


20-S3# 




















FAKCMP 


1-88 


4-16 




















FETCHR 


24-35 


24-60 


27-37 


29-31 


47-35 


59-18 


64-57 


68- 


■30 


73-17# 


75-22 


FF 


1-75 


1-89 


2-20 


20-52 


37-7 














FORCEX 


1-66 


55-68 




















FRKPRI 


1-39 


18-22 




















eCCKAC 


33-97 


34-10 


35"4# 


















GCCKCC 


33-81 


34-12 


35-13 


35-17 


35-22 


35-30# 












GCCKCE 


35-5 


35-21# 




















GCCKDE 


35-7 


36-6# 




















GCCKDS 


33-80 


35-12# 




















GCCKES 


33-22 


33-99 


33-101 


34-5# 
















GCEAC 


35-15 


35-26# 




















GCECHO 


35-26 


36-8 


38-8# 


47-45 
















GCEND 


33-90 


35-31 


35-35 


35-37 


35-44 


36-7 


36-12# 










GCEXIT 


33-54 


36-13 


36-17 


36-19 


36-2 1# 















64-75 64-84 



4-13 8-5 



75-48 
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GCHl 

GETCHR 

QETUCH 

GOTCHR 

GTCFCH 

GTCMl 

GTLTTY 

GTSLCH 

GTSPAC 

HAZEL 

HION 

HIPUT 

HIRTN 

ICPCR 

ICPCTC 

ICPCTD 

ICPCTG 

ICPCTO 

ICPCTR 

ICPCTU 

ICPCTX 

ICPCTZ 

ICPESC 

ICPLF 

ICPRUB 

ILSW2 

ILWAIT 

IN*ACT 

INCHR 

INFIN 

INITFL 

INITLN 

INSCHR 

INTPRI 

JSWLOC 
KILCHR 
KPAR6 

LABTIM 
LACTIV 

LAPS I Z 

LBRKCH 

LBRKCQ 

LCBIT 

LCOL 

LESCHR 

LESRTN 

LP 

LF*IN 

LF*OUT 

LF*WRT 

LFWLIM 

LHIPCT 



33-14# 

3-23 

1-88 

48-32 

9-49 

12-64 

1-90 

1-38 

1-28 

1-55 

8-7 

6-41 

8-8 

52-62 

52-52 

52-53 

52-56 

52-64 

52-67 

52-70 

52-73 

52-75 

52-76 

52-59 

50-107 

1-44 

33-64 

1-42 

50-83 

67-10# 

1-71 

1-92 

24-47 

1-69 

75-43 

1-71 

60-105 

1-86 
74-37* 
1-45 
1-61 
75-70* 
1-69 
1-80 
1-82 
1-68 
1-72 
1-53 
1-53 
1-67 
53-26 
1-95 
1-95 
1-95 
1-83 
1-93 



33-65 

7-35 

2-41 

49-9# 

9-91 

21-30# 

9-32 
33-53 
24-5 
60-50 
28-7 
8-23 
8-10# 
53-9# 
55-9# 
56-10# 
57-9# 
58-9# 
59-9# 
60-9# 
61-9# 
62-9# 
63-9# 
54-9# 
64-9# 
49-32 
46-7# 
9-61 
51-71 
71-28 
49-13 
49-45 
27-44 
1-70 
75-60 
25-32 
64-39 
18-41 

49-51 
7-13 
75-81 
24-49* 
50-33 
81-52 
1-79 
14-41* 
20-28 
20-18 
9-93 
53-33 
35-45 
12-69 
45-13 
24-50* 
33-60* 



33-68 
8-42 
8-22 

33-20 

9-41 

24-10# 
60-77 
28-14# 
12-18 
8-19 
54-36 



35-40 
9-121 
8-26 



39-14# 39-83 

9-89 



19-10# 

8-25 



8-29 



43-143 

53-32 69~7# 

72-25 



70-53 74-1 5# 75-51 

1-79 18-51 18-57 

25-35* 

64-46 68~13# 

18-41* 18-43* 19-40 



8-45 24-48* 27-20 

27-46* 27-53* 51-44 



55-51 



80-14 



i 
I 
I 



9-131 33-10# 



8-46 



0-60 



19-47 



46-44 



47-20 



47-58 



70-48 



73-45 



19-40* 19-42* 73-38 



73-38* 73-44* 74-31 



27-45* 33-62 

55-59* 71-17* 



46-33 



47-18 



55-69* 70-25 



74-38 



74-31* 



70-64* 



81-54* 

25-33 

16-13* 16-15* 16-21* 16-28 

20-34 34-40* 

34-34* 

9-123 16-50 20-46 20-54 

76-40 
36-12 



27-47* 29-15* 29-55* 51-59 

46-37* 



16-40* 47-26 



24-61 



37-9 



60-42 



38-21 



60-84* 70-18 



38-60 



44-36 



53-16 



55-58* 71-18* 



€ 
I 
4 
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LI FUN 


12-60 


21-3# 




























LINBUF 


1-62 


60-25 


70-46 


73-29 


73-51 


74-21 


74-44 


















LINCNT 


1-66 
75-67# 


8-57 

75-77 


24-32 


24-57 


27-29 


29-28 


47-33 


51-47 


51- 


-61 


55- 


-54* 


68-18 


70- 


-58* 


L INCUR 


1-76 


47-26* 


60-44 


64-54 


70-18* 






















LINEND 


1-62 


68-27 


70-44 


73-33 


73-49 


74-26 


74-42 


















LINNXT 


1-65 


55-52 


55-53 


68-23 


70-41 


70-47* 


70-65 


73-22 


75- 


-41 


75- 


-59* 








LINPNT 


1-61 


24-31 


27-35 


29-27 


33-66 


47-29 


55-52* 


75-27 


75- 


-29* 












LINSIZ 


1-66 


55-55 




























LINSPC 


1-47 


55-55* 


70-22 


70-57* 


75-66* 






















LITIME 


1-95 


33-61* 


46-38* 


67-45 
























LJSW 


1-41 
57-9 


1-90 
61-9 


6-15 
63-11 


7-5 
77-12 


9-32 
78-13 


9-41 
78-26 


9-89 
80-14 


25-34* 


33- 


-41 


33- 


-73 


34-9 


55- 


-51* 


LNMAP 


1-60 


49-18 


81-20 


81-32 
























LNPRIM 


1-67 


50-14 


55-62 


60-70 


81-19 






















LNSPAC 


1-64 


24-16 


24-21* 


26-21 


26-32* 


38-31 


50-42 


















LOOBLK 


1-94 


45-28 


45-34* 


























LOGBUF 


1-94 


45-25 




























LOeCHl 


44-19 


44-22 


44-35 


44-37 


45-9# 






















LOGCHN 


1-94 


45-28 


45-28 


























LOGCHR 


1-23 


12-71 


35-53 


36-20 


44-9# 






















LOGCR 


1-23 


35-54 


44-33# 


























LOGEND 


1-94 


45-20 




























LOGFLG 


1-95 


12-69 


35-45 


36-12 


45-13 






















LOGPTR 


1-95 


45-18 


45-32* 


45-41* 
























LOTBUF 


1-72 


18-46 


19-45 


























LOTEND 


1-72 


18-44 


19-43 


























LOTNXT 


1-72 


18-40 


18-47* 


19-39 


19-46* 


55-57 


58-15 


















LOTPNT 


1-75 


55-57* 


58-15* 


























LOTS I Z 


1-37 


55-56 


58-14 


























LOTSPC 


1-72 


6-9 


18-20 


18-24 


18-39* 


19-31 


19-38* 


31-29 


55- 


-56* 


58- 


-14* 


76-17 






LRBFIL 


1-78 


23-10* 


60-48 


60-91 


64-92 






















LRDTIM 


1-80 


8-67* 


67-33* 


























LRTCHR 


1-80 


8-68* 


8-69* 


33-69* 
























LSCCA 


1-62 


35-36 


55-38 


























LSNDCH 


1-53 


12-45* 


20-38 


20-75* 
























LSPACT 


1-64 


24-19 


26-23 


38-33 


50-46 






















LSTACT 


1-37 


55-53* 


59-17 


64-56 


70-65* 






















LSTATE 


1-76 


2-36 


2-57 


4-20 


11-29 


58-18 


67-22 


















LSTPRM 


1-91 


43-66 




























LSW 


1-41 


7-19* 


12-22 


13-21 


19-15 


19-17 


24-13 


26-10 


27- 


-13 


28- 


-5 


28-14 


29- 


-13 




33-14 


33-29* 


33-34 


33-36* 


46-7 


46-9* 


49-19 


50-79* 


51- 


-20* 


53- 


-45* 


54-41* 


55- 


-20* 




55-65* 


55-67* 


57-30* 


60-15* 


61-30* 


62-17* 


63-30 


63-33* 


63- 


-36* 


64- 


-15* 


65-21* 


65- 


-48 




65-62* 






























LSWIO 


1-52 


46-18* 


49-53* 


50-15 


50-18* 


75-84* 




















LSW 11 


1-37 


17-17 


43-52* 


43-102* 


52-23 


60-71 




















LSW2 


1-41 


9-129 


9-139 


12-31 


16-29 


16-46 


25-5* 


25-12* 


25- 


-24* 


25- 


-31* 


25-42* 


25- 


-49* 




25-56* 


30-5* 


30-12* 


35-51 


36-18 


38-10 


54-13 


60-30 


64- 


-24 


64- 


-28 


71-22 


72- 


-19 




76-13 


80-12 




























LSW3 


1-41 


7-21* 


9-113* 


12-24 


12-38 


12-50 


13-34 


18-32 


20- 


-74* 


20- 


-81* 


25-57* 


25- 


-64* 




33-13* 


33-95 


33-102* 


34-41* 


35-12 


35-14 


35-16* 


36-6 


38- 


-12 


43- 


-38* 


46-29* 


47- 


-16 




47-24* 


47-25* 


47-54* 


49-27 


50-77 


50-80* 


50-85* 


50-87 


50- 


-91* 


55- 


-34 


55-61* 


55- 


-63* 




55-70* 


58-9 


58-17* 


58-25* 


60-24* 


60-25 


60-40 


64-34 


64- 


-38* 


70- 


-15 


70-17* 


70- 


-66 




70-68* 


71-24* 


72-21* 


76-11 


76-53 


76-55* 




















LSW4 


1-34 


1-41 


2-18 


6-37 


7-26 


7-28* 


7-34* 


8-9* 


8- 


-20 


8- 


-59 


8-61 » 


9- 


-24* 




9-30 


9-56 


9-71 


9-95 


9-97* 


9-104 


9-143 


9-156* 


12- 


-16 


13- 


-27 


24-24* 


26- 


-35* 
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28-16* 


33-45 


33-49 


33-85 


35-21 


35-34 


35-49 


36-16 


39-53* 


39-54* 


39-61* 


39-68* 




39-75* 


39-82* 


41-15 


41-17' 


43-12* 


43-22 


43-25* 


43-35* 


43-42 


43-49 


43-88* 


43-91* 




43-123* 


43-140 


50-57 


51-32 


53-22 


54-24 


55-36 


55-45* 


56-10 


66-12 


70-86* 


78-28 




78-32 
























LSW5 


1-41 


6-17 


7-24 


23-17* 


23-24* 


28-23* 


28-30* 


28-37* 


29-38 


33-47 


33-75 


33-100 




34-11 


35-38 


35-41 


43-51* 


43-96* 


43-99* 


47-40 


50-64 


51-21* 


53-44* 


54-40* 


55-14 




55-19* 


55-32 


57-11 


57-29* 


60-14* 


61-11 


61-29* 


62-16* 


63-13 


63-40* 


64-14* 


77-14 




78-15 


78-30 






















LSW6 


1-86 


7-22 


9-120* 


9-122* 


30-19* 


30-26* 


35-32 


38-23 


38-25 


41-13 


46-15 


46-17* 




48-21 


50-28 


51-49 


51-63 


53-34 


53-36 


55-40 


55-66* 


60-92 


64-26 


64-93 


70-27* 




71-15 


75-75 


75-83* 


76-15 


77-16 


78-17 














LSW7 


1-39 


9-58 


33-43 


33-51 


33-58 


46-35 


55-60* 


78-24 


78-34 








LSW9 


1-59 


7-17 


9-39 


9-43* 


9-99* 


33-27 


43-36 


43-39* 


46-30* 


51-15 


55-21* 


55-30 




56-12 


56-15 


56-17* 


65-22* 


65-31* 


65-36 


65-58* 


65-67 


81-26 


81-28* 






LTRMTP 


1-84 


60-50 


60-73 




















LTSCMD 


1-68 


12-58 


12-64* 


21-15 


21-16* 


23-5* 


24-5* 


26-5* 


27-5* 


29-5* 






LTTCR 


1-35 


50-68 


70-72 




















LTTPAR 


1-86 


18-41 


19-40 


73-38 


74-31 
















LWINDO 


1-52 


17-15 


19-23 


52-25 


















MAPHLD 


1-14S# 


18-41* 


18-43 


19-40* 


19-42 


73-38* 


73-44 


74-31* 


74-37 








MAXCC 


1-30 


21-32 


22-30# 




















MAX SEC 


1-78 


50-94 






















MXCPRM 


1-62 


39-89 






















MXSPAC 


1-37 


24-17 






















NEDCDI 


1-46 


46-19* 


75-85* 




















NESCTL 


34-23 


37-12# 






















NOWAIT 


1-39 


6-15 


7-5 




















OTREGO 


32-6# 


58-20 






















OUTSTR 


10-7# 


10-37 






















OVRHC 


1-89 


17-19 


19-25 


33-53 


49-34 


49-45 


50-96 


52-16 


52-32 


70-74 






PBFEND 


1-92 


43-74* 






















PC2VEC 


14-33 


15-10# 






















PCCBS 


15-18 


16-13# 






















PCCCR 


15-23 


16-21# 






















PCCFF 


15-22 


16-46# 






















PCCHT 


15-19 


16-27# 






















PCCINS 


15-10 


15-11 


15-12 


15-13 


15-14 


15-15 


15-16 


15-17 


15-20 


15-21 


15-24 


15-25 




15-26 


15-27 


15-28 


15-29 


15-30 


15-31 


15-32 


15-33 


15-34 


15-35 


15-36 


15-37 




15-38 


15-39 


15-40 


15-41 


16-S# 
















PCSPND 


1-24 


18-31 


19-33 


31-11# 


















PR7 


1-69 


18-16 


19-30 


31-28 


46-32 


47-15 


70-40 


73-37 


74-30 


75-40 






PRCEND 


50-19 
50-104 


50-24 
50-108 


50-38 
50-1 13# 


50-53 


50-60 


50-71 


50-82 


50-84 


50-86 


50-93 


50-95 


50-97 


PRCHAR 


49-58 


50-S# 






















PRINT 


1-26 


5-5# 






















PRIVCO 


1-36 


43-44* 


43-108* 




















PRIVFO 


1-36 


43-41* 


43-107* 




















PRIVSO 


1-36 


43-41 


43-44 




















PRMBUF 


1-92 


43-75 






















PRMPNT 


1-62 


39-96 


43-61 




















PSW 


1-70 


18-16* 


18-51* 


18-57* 


19-30* 


19-47* 


31-28* 


46-32* 


46-44* 


47-15* 


47-20* 


47-58* 




70-40* 


70-48* 


73-37* 


73-45* 


74-30* 


74-38* 


75-40* 


75-43* 


75-60* 








PUTCHl 


12-76 


13-17# 


38-54 


38-57 


38-59 


38-66 














PUTCH2 


13-40 


14-15# 


60-58 


60-85 


76-19 
















PUTCHR 


1-21 
11-46 


2-21 
11-52 


2-44 
11-54 


2-65 
12-11# 


2-70 


3-22 


6-39 


8-27 


10-15 


10-18 


10-20 


11-39 
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PUTUCH 


1-88 


3-2S 


3-45 


8-43 


















PVNPW 


1-36 


43-46 


43-110 




















QCOMPL 


1-47 


81-55 






















QHDSPN 


1-74 


31-14 


46-41 




















QNSPNX 


1-74 


2-37 


2-58 


4-21 


11-30 
















QUECHR 


1-26 


14-45 


16-8 


16-16 


16-22 


16-32 


16-37 


16-51 


16-55 


17-1 1# 


29-51 


31-31 


R*CFST 


1-34 


42-1 5# 


42-39* 




















R*INST 


1-91 


9-61 


43~17« 


43-143 


















RBEND 


76-9 


76-53# 






















REGCHR 


50-109 


51-9# 


52-49 


52-50 


52-51 


52-54 


52-55 


52-57 


52-58 


52-60 


52-61 


52-63 




52-65 


52-66 


52-68 


52-69 


52-71 


52-72 


52-74 


52-77 


52-78 


52-79 


52-80 


56-22 




57-25 


61-25 






















RSSPAC 


1-29 


26-5 


26-10# 




















RUBOUT 


1-66 


14-39 


50-105 




















S«*RUN 


1-56 


67-39 






















SflNWT 


1-77 


46-40 


67-31 




















S*OTFN 


1-60 


32-6 






















S*OTWT 


1-73 


31-13 


58-18 




















S*TTFN 


1-81 


67-18 






















S*TTSC 


1-81 


67-16 






















SCACHK 


38-8 


50-66 


77-12# 




















SCACHR 


50-81 


54-18 


55-22 


59-11 


60-19 


62-9 


64-19 


79-16# 










SESCTL 


34-24 


37-7# 


37-12 




















SESRTN 


34-30 


37-22# 






















SETC 


1-90 


7-30 


8-62 




















SETERR 


1-37 


6-32 






















SETRBF 


1-28 


23-5 


23-10# 




















SFWAC 


1-29 


27-5 


27~10# 




















SFWL 


1-30 


29-5 


29-10# 




















SIGBRK 


50-17 


50-37 


Sl-51# 




















SIGWAT 


1-26 


31-12 


46-28 


81-13# 


















SILFET 


1-35 


48-26 






















SLCHK 


27-18 


29-20 


51-25 


53-13 


63-9 


67-14 


78~13# 


79-16 










SPACE 


1-78 


60-48 


64-83 




















SPOTTY 


1-76 


33-41 


33-73 


34-9 


55-51 


57-9 


61-9 


63-11 


77-12 


78-13 






STOP 


1-60 
43-145 


7-20 
46-10 


9-44 


9-63 


9-145 


12-26 


19-19 


33-16 


33-30 


33-37 


35-55 


43-55 


STPFLG 


1-71 


49-25 






















STRACT 


1-24 
71-12# 


50-52 


51-53 


53-15 


53-40 


54-30 


55-25 


57-20 


61-20 


62-12 


63-35 


65-71 


STRCHR 


50-59 


63-22 


63-32 


65-65 


65-69 


69-7 


70-9# 


71-13 


72-15 








STRSNG 


51-27 


51-39 


57-13 


61-13 


63-15 


72-10# 


79-22 












SUCF2 


1-35 


43-53 






















TAB 


1-66 


20-66 


37-11 


64-48 


64-59 
















TRNSFL 


1-68 


12-52 


14-20 




















TRNSTR 


1-38 


18-52 


19-51 




















TRYCHR 


31-28# 


81-34 






















TSTTY 


l-6# 


1-23 






















TTCPL 


1-35 


70-74 






















TTCSCH 


1-85 


2-30 


2-51 


11-14 


11-25 
















TTEOF 


3-25 


3-33» 






















TTFIN 


2-46 


2-72 


3-31 


3-38 


3-43 


4-4# 














TTINCP 


1-23 


48-15# 






















TTREAD 


1-25 


3-6# 






















TTYIN 


1-26 


7-5# 






















TTYOUT 


1-26 


6-5# 
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Cross reference table (CREF V05. 05) 



TTZERO 3-18 3-37# 

UHIMEM 1-85 5-6 

UOTSTR 5-10 9-114 il-9# 



VCTRLT 1-38 52-14 

VINTIO 1-93 33-60 46-37 

VQUANl 1-81 33-61 46-38 

VTIOO 1-84 60-50 

VT2007 1-84 60-50 

VT2008 1-84 60-50 

VT52 1-84 60-50 60-74 

VTSLCH 1-68 12-62 

WLSCH 1-50 50-75 

VVPWCH 1-36 52-21 

WINCHR 1-52 17-19 19~25 

WINPRT 1-35 52-32 

WRITTT 1-25 2-6# 

XHIIN 1-27 8-34# 

XHIOUT 1-27 8-15# 

XHISET 1-27 8-5# 

XRDTIM 1-27 8-67# 

XTCC 8-50 8-62# 

XTERCK 1-27 8-55# 



URO 1-90 4-9* 5-5 6-36 7-36* 8-41* 8-44* 8-57* • 

VALADB 1-88 2-8 2-14 3-8 3-13 5-9 8-17 8-36 8-40 
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. . . CMl 


40-37 


43-121 


43- 


-127 


45 


-28 


. . . CMS 


40-37 
45-28 


40-37 


40- 


-37 


40- 


-37 


. . . CM3 


43-24 












. . . CM5 


40-37 


43-121 


43- 


-127 


45- 


-28 


. . . CM7 


40-37 


43-127 


45- 


-28 






. PURGE 


1-17# 


43-24 










. READW 


1-17# 


40-37 


43- 


-127 






. REOPE 


1-17# 


43-121 










. WRITW 


1-17# 


45-28 










DISABL 


l-99# 


18-16 


19- 


-30 


31- 


-28 


ENABL 


1-103# 


18-51 


18- 


-57 


19- 


-47 


OCALL 


1-107# 


17-19 


19- 


-25 


33- 


-53 


TTMAP 


1-137# 


18-41 


19- 


-40 


73- 


-38 


TTMAPX 


l-12e# 












UNMAP 


1-142# 


18-43 


19- 


-42 


73- 


"44 


UNMAPX 


1-134# 













43-121 



43-127 



43-127 



43-127 



43-127 



45-28 



45-28 



45-28 



46-32 
46-44 
49-34 
74-31 

74-37 



47-15 
47-20 
49-45 



70-40 
47-58 
50-96 



73-37 
70-48 
52-16 



74-30 
73-45 
52-32 



75-40 
74-38 
70-74 



75-43 



75-60 
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